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Author's Introduction 



This book will give you and your computer power— the power to rep- 
licate reality in a quite uncanny way. I've included a wide range of pro- 
grams that allow you to experience this power in action— from a 
program that simulates microbes fighting for the right to survive in 
a closed environment, to one that puts you in the cockpit of a partic- 
ularly temperamental plane. 

There is also more to this book than the ready-to-run programs. 
You'll discover how easy it is to analyze real-life situations so that 
you can create your own computer simulations, for both entertain- 
ment and instruction. 

You now have the power. Use it 



Tim Hartnell 
London, 1986 



Getting the Programs 
Running on Your System 

I wrote the programs in this book on an IBM PC. Since you may 
own or use different microcomputers, I've included the full BASIC 
program listings for the three most popular microcomputers: the Ap- 
ple He, Commodore 64, and the IBM PC. BASIC listings that will run 
on IBM PCs, XTs, and compatibles without modification are pre- 
sented throughout the chapters. Program listings specifically for the 
Apple He series and the Commodore 64* are included in the appendix 
at the end of the book. 

I've written the programs in a subset of BASIC that will run on 
most microcomputers with only minimal changes. However, if you 
don't own an Apple lie or lie, Commodore 64, or IBM PC, some of the 
BASIC statements used in the programs may have to be changed 
slightly to run on your system. I've included the following notes so 
that if you do have to adapt the programs you'll be able to get them 
running as quickly as possible. 

Screen Width 

I've assumed that you have access to the READ and DATA com- 
mands, and that your screen is about 40 characters wide. If your com- 
puter's screen is not quite that wide, you may have to adapt the 
program output by adjusting the PRINT statements. 

Random Numbers 

Some of the programs need random numbers to operate. When 
I want a random number between one and zero, I use the command 
A = RND(l). If I need random integers in the range between 1 and 10 
I use A = INT(RND(1) * 10) + 1. If your system can't use this state- 
ment, you'll have to substitute the form of the RND command that 
will run on your computer. Look up RND or "random numbers" in 
your system's BASIC manual. 

*C64 users see note on p. 171. 
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My computer's BASIC generates the same sequence of random 
numbers each time a program is run. In order to get a genuinely ran- 
dom set of numbers, I have to seed the random number generator. I've 
used the rather terrifying-looking statement RANDOMIZE VAL 
(RIGHT$(TIME$,2)) to do this. If your random number generator re- 
quires a seed (again, this will be explained in your BASIC manual), 
replace this statement with your system's equivalent (or leave it out 
altogether, if you don't have an alternative). 

If your computer doesn't use the BASIC statement DEFINT 
(often used in the line after RANDOMIZE as DEFINT A-Z) leave that 
line out completely as well. (See line 490 in the LIFE listing.) 

Capital Letters 

Note that the programs expect input in upper-case letters. If 
your computer can use lower-case letters, and if while running the 
program nothing happens when you type in letter commands, check 
to make sure that you're typing in capital letters. 

Input Statements 

You may also have to change my use of INKEY$ for single char- 
acter input If your computer can't use INKEY$, change these state- 
ments (throughout) to the input statement that works on your 
system. Change A$ = INKEY$ to either INPUT A$ or GET A$ (again, 
see your BASIC manual). The program should run without further 
changes. Use CALL KEY when working in TI Extended BASIC. 

Note that some BASICS (such as Atari BASIC) do not let you in- 
clude a string within an INPUT statement (as in INPUT "string"; A$). 
Replace this with PRINT "string" followed by a separate INPUT state- 
ment 

READing Arrays 

Some BASICS cannot READ array values directly, as in READ 
A(7) or READ A$(7). You'll have to replace these statements with lines 
that put data in the array indirectly. First read the data into a variable. 
The appropriate array element can then be set equal to the variable, 
as in READ X:A(7) = X or READ X$:A$(7) = X$. 

Printing the Results 

Many of the programs "reprint" the screen after each turn. I've 
used the CLS command to CLear the Screen. If your system doesn't 
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use CLS, you'll have to replace it with the appropriate command. Use 
PRINT "CLR" on Commodore and Atari computers, HOME on Apples, 
and CALL CLEAR when working with TI Extended BASIC. 

String-Handling 

String-handling can cause a few problems, so I've kept it to a 
minimum. If your computer does not support the standard LEFT$, 
MID$, and RIGHT$ string-handling commands, consult your BASIC 
manual for the correct replacements. For example, the standard 
MID$(A$(2,3)) can be replaced with SEG$(A$,2,3) in TI Extended 
BASIC, with A$(2 TO 5) on Timex/Sinclair computers, and with 
A$(2,5) in Atari BASIC. 

Dela\f Loops 

Many of the programs include a delay loop (usually in the form 
FOR I = 1 TO 500:NEXT I). You should adjust these dummy loops 
(which are usually held in subroutines at the end ofprograms) so that 
the program's displays of instructions and the progress of the sim- 
ulation are clear and easy to follow. See line 550 in the SIMULTA- 
NEOUS EQUATIONS listing for an example of how this works. 

Variables 

If your system won't accept variable names longer than two let- 
ters, enter just the first two letters (such as SC for SCORE). If it will 
accept a full variable name, but only recognize the first two letters, 
you will find that using the full variable name makes the program 
much easier to understand. 

Functions 

A number of the programs in this book use the BASIC statement 
DEF FN to define specific functions which are then "called" from dif- 
ferent parts of the program. Most BASICs include some form of DEF 
FN, the most notable exception being Atari BASIC. Functions can 
usually be replaced with subroutines, or, if the expression or calcu- 
lation is short enough, you can simply replace each use with the 
whole expression. 

High-Resolution Graphics 

The only program you may find difficult to adapt is POINT-DUTY 
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ROBOT, which requires high-resolution graphics (using a command 
like PSET or POINT). If your computer is capable of high-resolution 
graphics, you should consult your system's manual to find out the 
equivalent commands for your machine. If not, you'll find that the 
regular ROBOT LOGO listing is almost as much fun! 

Memory 

It is impossible to predict exactly how much memory the pro- 
grams will take up on your system, but the majority of the programs 
in this book will fit well within 16K machines. In fact, the longest pro- 
gram, FLIGHT SIMULATOR, is less than 8K long. 

If you have trouble getting a program into your system because 
of a shortage of memory, cut out as many REM statements as possi- 
ble (check to make sure that no GOSUB or GOTO calls refer to the 
lines you want to delete) and try to shorten the PRINT statements. 

General Instructions 

These changes should cover the adaptations you'll have to make 
to get the programs running on your computer. 

Please be sure to type programs in carefully. Remember that the 
instructions you give to a computer must be exactly correct — or the 
machine won't be able to run your program. If you have trouble get- 
ting a program to run, first proofread your typed-in version against 
the listing given in this book. 

The manual for the BASIC that came with your computer is an 
indispensible tool. Check the manual to see what's wrong with any 
program lines that won't work — or that result in error messages. 
Make sure to use the exact forms of the commands as given in the 
manual. 

Talking to someone who has a lot of programming experience — 
especially if it's with the computer you're using— can also be a tre- 
mendous help. 
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The Power 

of Simulations 



Computer simulations give you the power to try your hand vicari- 
ously at almost any activity you can imagine. Running a multi-mil- 
lion-dollar manufacturing concern, flying to the moon, driving a 
racing car, or running the country as President— all these experi- 
ences can be yours through simulation programs. 

In this book you'll find programs that allow you to take part in 
all these scenarios and more. You'll also be gently introduced to the 
art of creating computer simulations. After you've enjoyed the pro- 
grams in the book, you'll have made a good start on being able to write 
your own. Studying the program listings, observing what the different 
variables represent and the way they interact and how mathematical 
formulas are used to replicate "real life" situations, will show you a 
number of easy-to-apply techniques that you can use in your own 
simulations. 

Despite their obvious entertainment value, computer simula- 
tions are not just elaborate games. More sophisticated simulations 
are being used for training in many situations where reality is too ex- 
pensive, too dangerous, or too complex to allow human beings to 
learn by direct experience. During airplane pilot training many, many 
hours of airtime are clocked in elaborate flight simulators— con- 
trolled, of course, by computers— rather than up in the air. 

One of the real advantages of simulations is that they can be ma- 
nipulated more easily than the real situation. For example, a pilot 
training on a flight simulator could attempt to land during a hurri- 
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cane with very little fuel, or an operator at a nuclear power station 
could be faced with the possibility of a meltdown. Operators in con- 
ventional and nuclear power plants around the world are now train- 
ing on simulators, where they can hone their skills without facing 
real catastrophes. One example of the use of computer-controlled 
simulations in this area comes from Australia, where an electricity 
generating board has spent half a million dollars to buy a simulator 
to train its operators. This simulator, developed and marketed by an 
Australian company called Control Simulation Technology, allows a 
controller to simulate a number of emergency situations, so that staff 
can learn to cope with them. This "emergency" training would be im- 
possible without the use of a simulator. 

Another computer simulator, which might be seen as a little bit 
sinister, uses the reactions of a few test subjects to television and 
print advertising to simulate the reaction of a significant portion of 
the population. The simulator, developed by psychologist Marcus 
Tomlian, is claimed to be "the most sophisticated precision system 
for measuring consumer reactions to advertisements. " The device, 
called Mind Monitor, is made up of a series of sensors that measure 
the brain and heart activity of a sample group of people. The simu- 
lator runs while an advertisement is shown to the test group, and 
gives a second-by-second readout from the sensors. The readings are 
then fed into the simulator, which analyzes the brain waves and car- 
diovascular readings and uses them to extrapolate the probable re- 
action of the general population. Mr. Tomlian claims that Mind 
Monitor can be used to find weak points in an advertising campaign 
so that the advertiser can "fine-tune" particular campaign elements. 
General Electric is believed to be at the forefront of developing com- 
puter simulations which help gauge viewers' reaction to advertising, 
while one of the world's biggest ad agencies, Young and Rubicam, is 
also investigating the field. 

Simulation Limitations 

A computer simulation, of course, must never be confused with 
the system it is simulating. All simulations are, to greater or lesser 
extents, simplifications of the system they represent Low-level sim- 
ulations, like the programs in this book, and the simulations you are 
likely to create in the next few months, are often drastic simplifica- 
tions. Despite this, they can be surprisingly effective— trying to land 
a plane using our FLIGHT SIMULATION program can be almost as 
nerve-racking as the real thing. 

You'll find that there is as much art as science involved in cre- 
ating effective simulations. The science is in working out the for- 
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mulas that represent the interacting elements of the system you are 
trying to simulate. The art is in programming those formulas so that 
your interaction with the simulation is as "life like" and rewarding 
as possible. This means that the output must be realistic, and must 
be presented in a form that is readily understood. 

For most simulations, the speed with which the program re- 
sponds to user input is very important If the simulation is occurring 
in "real time" (that is, a second of time elapsed within the simulation 
is supposed to equal a second of time in real life), it is important that 
the simulation is written so that this one-to-one correspondence be- 
tween the times is as close as possible. 

Simulations can be divided into two groups: those where the 
data is acted on in distinct groups or packages, and those where the 
data values flow into each other repeatedly and continuously. 
Queuing systems, where a set of elements to be processed (like a 
group of customers waiting in line at a bank counter) wait in a queue 
until the system is ready for them, are the main kind of discontin- 
uous situations that are turned into simulations. In the second type 
of simulation, where data values flow into each other, values (such as 
the internal temperature of a nuclear reactor) change constantly over 
time. 

It is important to try and determine, before you start program- 
ming your own simulation, which type of data or process predomi- 
nates within the system you are going to program. 

Any situation where elements are added to a queue at rate A and 
removed at rate B is a candidate for a discrete simulation. There are 
many, many situations like this in real life. Discrete queues exist in 
such different situations as collecting eggs in an old-fashioned farm- 
yard (where a queue can simulate the difference in time between eggs 
being laid and gathered), highway accident victims waiting for am- 
bulances, and airplanes waiting for clearance to take off. 

Some systems can be simulated by either a discontinuous or a 
continuous model. Our SPACE LANDING SIMULATION lets you try to 
land a spacecraft on the moon. This program waits for an input before 
continuing (you type in a number between zero and nine, represent- 
ing "thrust"). If the program did not wait for your key press, but kept 
going through its operational cycle over and over again, checking the 
keyboard during each cycle, and making changes only (fit detected 
a valid key press, the simulation would clearly be a continuous one. 
There would be no instant when the velocity and position of the craft 
were not changing. Add a real-time control facility to our FLIGHT SIM- 
ULATION program, and you'd have another non-discrete simulation. 

In the next chapter of this book, we'll look at the basic elements 
of a simulation, and show how to break down a problem so that you 
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can create a simulation of it The later chapters explore many differ- 
ent types of simulations. You'll see a number of simulation tech- 
niques in action, and can study the programs to see how the results 
were achieved. The lessons you learn from these chapters can then 
be applied to help you create your own simulations. 

Chapter three looks at loops and feedback, the fundamental ele- 
ments of all simulations, and shows these in action with the SPACE 
LANDING SIMULATION program. From there we move to Monte Carlo 
simulations, where the effects of random inputs on a system are dis- 
cussed. Chapter five presents the predator/prey simulation, where si- 
multaneous equations model the interaction of two kinds of cells 
living within a culture medium, and competing for the right to sur- 
vive. 

The next chapter presents a version of John Conway's classic 
computer simulation LIFE, where birth and death occur in a less 
bloodthirsty way than in our predator/prey simulation. The first ver- 
sion of this program allows you to encode game-starting patterns as 
DATA statements, so that different evolutionary outcomes can be 
studied. Then you'll shown how to make the simple changes that al- 
low your computer to generate the starting colony at random. 

Chapters seven, eight, and nine, which look at robot simula- 
tions, are considerably more ambitious than the earlier ones. In 
these chapters, we will actually examine two simulations at once. 
First, we simulate the action of a computer language interpreter, 
which "understands" commands entered in RCL, a new computer 
language (Robot Control Language). Second, the programs use RCL 
commands to move a little "robot," which leaves Logo-like designs 
as it trundles around your computer's screen. The programs given 
here form a solid basis for developing your own complete "turtle 
graphics" program. 

Artificial intelligence is one of the "hot" areas of computer sci- 
ence at the moment, and this book would not be complete without a 
program or two that showed how a simulation program can appar- 
ently endow a computer with intelligence. Chapter ten lets you at- 
tempt the fairly fruitless task of trying to beat your computer at the 
game CONNECT FOUR, and explains how the program assesses its 
"best" move. The move-selection technique can be adapted to many 
other board games. The following chapter introduces a program that 
replicates an 1890 Spanish machine that plays a particular chess 
endgame. The Quevedo Chess Machine was probably the first genu- 
ine attempt to produce a chess-playing machine, so it is appropriate 
that it is represented here. 

From chess we move into the political arena, and show how the 
economy of the United States can be (admittedly very crudely) mod- 
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eled within a computer simulation. You take the role of the President, 
and your job is to try to control the economy. You may well have a 
deeper sympathy for the real occupant of the Oval Office after you find 
your best efforts blowing up in your face. 

Money manipulation lies at the heart of chapter thirteen 's sim- 
ulation of a small stock market in action, as you invest in the fluc- 
tuating fortunes of five companies, trying to reach a financial goal 
you have set for yourself. If you find you have considerable skill in 
this area, you can see if it stands you in good stead in manufacturing. 
DETROIT CITY, presented in chapters fifteen and sixteen, confronts 
you with an even more difficult challenge. Your task is to try to bring 
an ailing automobile manufacturing company back to a more profit- 
able life. Fail, and you're out of a job. Succeed, and you get a seat on 
the board. 

We move from the world of business simulations to programs 
that simulate leisure activities. GRIDIRON, presented in chapters 
seventeen and eighteen, puts you up against the computer-con- 
trolled Silicon Cowboys, or you can use the program to mediate a 
clash between two human beings. The next program gives you the 
chance to play a three-set game of tennis against your computer. 
Again, if you prefer, you can use the simulation simply to keep track 
of the action, and play against another flesh-and-blood opponent. 

In chapters twenty-one and twenty- two, you are at the wheel of 
a racing car, as you try out your driving skill on your choice of Grand 
Prix tracks in Britain, Germany, Italy, or Monaco. The tracks used 
within the program are based on the real-life tracks, but I doubt 
whether the skills you pick up here could very usefully (or safely) be 
transferred to genuine Grand Prix driving on those circuits. 

Finally, in chapters twenty-three and twenty-four, we have our 
simulation de resistance, a complete flight simulator. The program 
simulates an airplane that is fiendishly difficult, but not impossible, 
to fly. You'll find that keeping track of four or five constantly chang- 
ing factors at once will take all your concentration. But the satisfac- 
tion you'll feel on your first successful landing will make it all worth 
while. 

As you can see, we have some fascinating territory ahead of us. 
Let's go. 
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The Components 
of a Simulation 



In the simplest terms, a simulation is a computer model of cause and 
effect Event A is linked to event B by equation X. Modify B, and C is 
affected, by linking factor Y. And so on. Isolate the links (X and Y, in 
the preceding examples), and you have the raw ingredients of a sim- 
ulation. 

If you turn on a light switch, electricity will flow through the cir- 
cuit, and the light will come on. Cause and effect are easy to see in 
this situation: 

CAUSE > EFFECT > EFFECT 

SWITCH ON CURRENT FLOWS LIGHT GLOWS 

It would be, of course, a trivial exercise to write a program to simulate 
the result of turning on a light switch. However, this should not blind 
us to the fact that, in essence, all simulations — no matter how com- 
plicated — that you write will show a clear linking between causes and 
effects. 

More Complex Links 

The links, of course, will not always be this simple and straight- 
forward. 

Some effects may only come into play when variables reach trig- 
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ger values. For example, the car engine in our GRAND PRIX simula- 
tion blows up if the engine temperature exceeds 200 degrees. Your 
own simulations may have a link that looks like this: 



EVENT X leads, if A is present, to EVENT Y 
leads, if B is present, to EVENT Z 

Analyze the links and express them in a diagram like the above, per- 
haps substituting mathematical formulas for our "if A, then B" links, 
and you're well on the way to writing your own simulation program. 

The first simulation program in this book (in the next chapter) 
puts you in the position of a pilot trying to land your spacecraft on 
the moon. The causal links in this program are reasonably straight- 
forward, but still manage to produce very interesting and somewhat 
unpredictable outcomes. 

Here are the links. THRUST is the input from the user, each time 
through the loop. 



> FUEL = FUEL - THRUST 

IF FUEL = > > > 

VARIABLE FLAG (VF) = THRUST - 2 
HEIGHT = HEIGHT + VELOCITY + VF/H 
VELOCITY = VELOCITY + VF 

IF HEIGHT < 10 > > + 

< <--G0T0 NEW THRUST INPUT : 

V 

IF VELOCITY > -9 AND VELOCITY < 5 THEN LAND SUCCESSFULLY 

ELSE + 

CRASH < 



Although this may look a little complex at first sight, it is ac- 
tually fairly simple. You can see that the causal loop diagram looks 
pretty much like a flow chart, and actually contains some lines that 
apparently could be programmed directly. When you look at the pro- 
gram (especially lines 170 to 240) you'll see that some of the lines 
above do appear almost unchanged in the program. 

Feedback 

Causal loops contain elements, or processes, that interact. They 
also contain feedback mechanisms. The results of one series of com- 
putations (in the moonlander simulation, for example, the results are 
the height, velocity, and fuel left) feed back to affect the next input 
(THRUST in this case). In this case the feedback is presented to the 
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user on the screen. The user, or player, then makes choices about his 
next input In continuous simulations, the feedback information can 
be used by the program to automatically influence the state of the 
simulation. 

In real life, feedback influences many situations, for example, in 
the operation of a thermostat on a room heater. If the room gets 
colder, the thermostat turns the heater up. When the room becomes 
warmer, the thermostat turns the heater down. In due course, the 
room cools, the temperature drops, and the cycle begins again. 

Feedback does not always lead to a fluctuating output. For ex- 
ample, if I am angry with you, I may raise my voice. You shout back. 
I am further angered by you raising your voice and I raise my voice 
some more. You, in turn, are made more angry by my increased vol- 
ume, and shout even more loudly at me. A self-reinforcing loop is set 
up. If the heater's thermostat was set so that the hotter the room be- 
came, the more heat was produced, a similar self-reinforcing feed- 
back loop would be seen (and felt!). 

Equilibrium Points 

Many feedback loops have an equilibrium point. (In our ther- 
mostat example, the equilibrium point is the final steady tempera- 
ture of the room.) A good simulation may, in effect, challenge the 
program user to discover that equilibrium point. There may well be, 
for example, a thrust input built into our moonlander program that 
allows the craft to sink gently down into the lunar dust 

Negative and Positive Loops 

A negative feedback loop tends to push the system toward an 
equilibrium point (As the room gets hotter, the thermostat turns the 
heater down. ) A positive feedback loop tends to lead to dramatically 
accelerating or decelerating rates, pushing the system away from an 
equilibrium point. (As the room gets hotter, the heater is turned up 
more.) 

It is fairly easy to understand how a single feedback loop can 
form the heart of a simple simulation. However, most situations in 
real life, when analyzed, turn out to be made up of more than one feed- 
back loop. 

For example, in the predator/prey simulation in chapter five, we 
have two life forms whose survival is inextricably bound together. If 
one species dies out, the other will also die. If there are too few pred- 
ators, the number of prey will increase, leading to more food, so more 
predators are born. These in turn will eat more prey. The situation is 
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dynamic, constantly changing as the simulation produces and uses 
its own feedback. 

Here is how chapter five's program looks in a causal diagram: 



reproduce >■ 

in relation 
to numbers 



if enough 
+--CELL Y exist->-+ 
: to support X, Y : 
: i s eaten : 
V 



No . of 

CELL Y 



No, 



< reproduce--* 

in relation 
of to numbers 



CELL X 



A situation like this can either stabilize, or can move so that either X 
or Y becomes dominant, with the other type of cell reduced to an in- 
effectual level. 

Such simulations are fascinating to run, and their outcomes can 
be difficult to predict, even when you know the linking formulas well. 
In a simulation like this, where there are two negative feedback loops 
in operation, X and Y fluctuate about an equilibrium point as they act 
on each other. 

Your own simulation programs will be easier to write if you con- 
sider the behavior of the system you want to model in terms of pos- 
itive or negative feedback loops. 

Some relationships are easier to see than others. For example, 
this diagram shows the relationship between the work involved in 
pumping water from a well, the thirst produced by that work, and the 
amount of water produced: 



amount 
drunk 



quantity 
of water 



amount 
pumped 



This is a fairly clear situation, one that is probably simpler than any 
real-life situation you'll try to model with a simulation system. If a 
double loop is needed to show the relationship of something simple 
like this, it is highly likely that the systems you'll want to simulate 
will need two, or more, interacting loops. 



9 



For example, the ecological system of oxygen use and replenish- 
ment on Earth can be shown with the following diagram: 



More C02, so 
biosphere 4 
heats up 



Greenhouse effect 
inhibits plankton 
growth 



Fertilizer runoff 
^encourages algae 
growth in rivers 



Fossil fuels 
burnt, consume 4- 




^ 1 

Population 
increases, demand, 
rises 



Burning forest 
areas reduce 02 
output, increase 
C02 



Waste industrial 



Industrial waste 
in rivers 
consumes 02, kills 
off marine life 



t 



gases pollute atmosphere 

Thermal pollution 
"raises river temperatures 
reducing 02 capacity of 
water, and suffocating 
marine life 

I < 



Time Against Action 

You may well find that producing a graph of the action of a sys- 
tem makes it easier to understand both the dynamics of the system 
and the causal loops that are acting within it 

If we plot against time the populations of cell type X and cell type 
Y from the runs of chapter five's predator/prey simulation, we get 
graphs like these: 



Number 
of 
cells 



01 2345678910 
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These graphs show dramatically how the two life forms are related. 
The crossover points of the lines also suggest where the equilibrium 
points of the system may be. 

So the causal loop diagrams help us find the underlying rela- 
tionships within the system we hope to simulate, and a graph of the 
outputs of the simulation plotted against time allows us to see cause 
and effect in action within the system. This graphed data can help us 
to see the effectiveness or otherwise of our simulation, and helps our 
understanding of what is actually going on as the simulation runs. 

You should now have enough background information to un- 
derstand the processes involved in the creation and running of the 
simulation programs that make up the rest of the book. Once you get 
the programs up and running, you may well want to draw causal dia- 
grams to show the links between elements in these programs. As 
well, the output from some— but not all— of the simulations can be 
graphed, to give further insight into the working of the system being 
modeled. 
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In this chapter, we'll look at our first simulation program, one that 
has been around in one form or another since the earliest days of 
commercial computers. In those days, a lot of expensive corporate 
and academic computer time was consumed by would-be space pilots 
trying to land creaky old space ships on the moon. 

Unlike the predator/prey simulations in chapter five, which use 
simultaneous equations, simulations like this one use a series of for- 
mulas held within a loop. After each run through the loop, the system 
operator receives feedback on the status of particular variables that 
are being modified (in this case, fuel, height, and velocity). On the ba- 
sis of this feedback, the operator decides what input to enter, and 
then waits for the computer to report back on the result of processing 
that new input 

Here is how the series of mathematical operations is repre- 
sented within the program loop. A$ is the user input, signifying 
thrust 



160 THRUST = VAL [ A $ } + . 1 

170 FUEL=FUEL-THRUST 

180 FLAG=THRUST-2 

190 THRUST=0 

200 HEIGHT=HEIGHT+VEL0CITY+FLAG/4 

21 VEL0CITY=VEL0CITY+FLAG 
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Typically, the main loop has certain exit conditions (such as, in 
this simulation, when you crash, run out of fuel, or manage to land 
safely) that abort the cycle and end the run with a status report to the 
operator. Lines 220 and 240 in the next section of the program check 
to see if the cycle should leave the loop, while 230 sends it back for 
another run through: 

2 20 I F HEIGHT< = 1 THEN 240 
230 I F H EI GHT >1 THEN 1 20 

240 I F VELOCITY >-9 AND VEL0CITY<5 THEN 2 
90 

Of course, you don't need to know this, or keep it in mind, when 
running a program like the SPACE LANDING SIMULATION in this 
chapter. As far as you're concerned, you're trying to land your ship, 
and the mechanics of handling your input are none of your concern. 

In this program user input is limited to choosing thrust You sig- 
nify a high thrust by pressing the "9" key; a low thrust with the "1" 
key; and zero thrust with the "0" key. Intermediate values are entered 
by touching other number keys. There is no need to press the RE- 
TURN or ENTER key at this point, as INKEY$ (or GET$) are used to 
read the keyboard. 

Let's see how an unskilled pilot makes out when trying to land 
a spacecraft using this simulation: 



FUEL 



VEL0C ITY 
- 1 1 .42 

-9.520001 



HEIGHT 

4 9 7.03 

5 7.99 
5 17.04 
5 2 4 .2 

5 2 9.45 
5 3 2 .8 
5 3 4.26 
5 3 3.81 
5 3 1 .47 
527.22 
5 2 1 .07 



208.33 
2 8.23 
2 8.13 
2 8.03 
2 7.93 
2 7.83 
2 7.73 
2 7.63 
2 07.53 
2 7.43 
207.33 



-7.62 
-5.72 
-3.82 
-1.92 
-.02 
1.88 
3.78 
5.68 
7.58 



188.23 
17 9.13 
17 0.03 
160.93 

151 .83 



10.48 
3.38 
-3.72 
-10.82 
-17.92 



3 41 .57 
3 3 2.87 

3 3 1 .28 
3 3 6.78 
3 49.39 
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51.73 


-16.02 


3 6 6.84 


5 1.63 


-14.12 


3 8 2.39 


5 1.53 


-12.22 


3 9 6.05 


5 1.43 


-10.32 


407 .8 


51.33 


-8.42 


417.66 


5 1.23 


-6.52 


425.61 


50.03 


16.28 


3 7 2.86 


4 9.93 


18.18 


3 5 6.11 


4 9.83 


2 0.08 


3 3 7.47 


49.73 


2 1.98 


3 16.92 


4 9.63 


2 3.88 


2 9 4.48 


4 9.53 


2 5.78 


2 7 0.13 


4 9.43 


2 7.68 


2 4 3.88 


4 9.33 


2 9.58 


2 15.74 


4 9.23 


3 1.48 


18 5.69 


49.13 


3 3.38 


15 3.75 


4 9.03 


3 5.28 


119.9 


48.93 


37.18 


8 4.15 


4 8.83 


3 9.08 


46.51 



YOU HAVE CRASHED INTO THE SURFACE... 



FINAL INSTRUMENT READINGS WERE: 
FUEL VELOCITY HEIGHT 

148.73 40.98 



NEW CRATER ON MOON 2.25 METERS DEEP! 
YOUR SKILL RATING IS -438 

The picture is very different when a skilled space jockey takes 
the controls: 



FU 


E L 




VELOCITY 


HEIGHT 


21 


. 


7 1 


4.02 


4 9 6.05 


21 


. 


6 1 


5.92 


4 9 1 .57 


21 


. 


51 


7.82 


485.18 


21 


. 


41 


9.72 


476.89 


21 


. 


31 


11.62 


466 .7 


21 


. 


2 1 


13.52 


454.61 


21 


. 


1 1 


15.42 


440 . 62 


21 


. 


1 


17.32 


424.73 
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2 9 
20 

1 91 
1 8 2 
1 82 
1 8 2 
1 8 2 
18 2, 
182, 
182, 



, 9 1 
81 

, 71 
6 1 
5 1 
41 
31 
2 1 
1 1 
1 



19.22 

12.12 
5.02 
-2.08 
-.18 
1.72 
6 2 
5 2 
42 
3 2 



40 6 
38 9 
37 9 
37 5 
377 
37 7 
37 5 
3 7 
3 6 4 
3 57, 



• 94 

, 5 

, 1 6 

, 92 
53 
2 4 
05 
9 6 
97 
8 



150.91 20.22 126.75 

147.81 19.12 106.81 

14 4.71 18.02 87.97 

140.61 15.92 70.48 

13 4.51 11.82 55.59 

126.41 5.72 45.3 

12 4.31 5.62 39.61 

122.21 5.52 34.02 

118.11 3.42 29.03 

116.01 3.32 25.64 

113.91 3.22 22.35 

111 .81 3.12 19.16 

10 8.71 2.02 16.32 

10 7.61 2.92 14.08 

10 6.51 3.82 10.94 

YOU HAVE LANDED SAFELY! 

YOUR SKILL RATING I S 9067 

FINAL INSTRUMENT READINGS WERE: 

FUEL VELOCITY HEI GHT 

10 5.41 4.72 



Here's the listing so you can do your bit for NASA: 

10 REM SPACE LANDING SIMULATI ON I 

20 RANDOMIZE V A L ( R I G H T $ ( T I M E $ , 2 ) ) 

30 REM ***********************#***#* 

40 REM SET STARTING VALUES 

50 FU EL = 20 + RND [ 1 ) *40 

60 VEL0CITY=RND [1 } *20-6 



70 HEIGHT=500-RND ( 1 } *1 
80 CLS 

90 PRINT " FUEL" ;TAB(12] ; " VELOCITY" ;TAB 
t 2 4 ] j " HEIGHT" 

100 REM #**#*####*##**#*#** *#*######* 
110 REM MAJOR CYCLE 
120 GOSUB 43 

130 IF FUEL< = THEN F U E L = : T H R U S T = s G T 
1 7 

140 A $= I NK EY $ 

150 IF A$<"0" OR A$>"9" THEN 140 
1 60 THRUST = VAL ( A$ ) + . 1 
170 FU EL= FU EL-THR UST 
180 FLAG=THRUST-2 
1 90 THRUST=0 

200 HEIGHT=HEIGHT+VELOCITY+ FLAG/4 
210 VEL0CITY=VEL0CITY+FLAG 
220 IF HEIGHT<=1 THEN 240 
230 I F H EI GHT >1 THEN 1 20 

240 IF VEL0CITY>-9 AND VEL0CITY<5 THEN 2 
90 

250 GOSUB 410 

260 PRINT "YOU HAVE CRASHED INTO THE SUR 
FACE..." 

270 IF HEIGHT>0 THEN H E I G H T = - H E I G H T 
280 GOTO 320 

290 PRINT "YOU HAVE LANDED SAFELY I " 

300 PRINT "YOUR SKILL RATING IS"INT(-100 

0*FUEL/ (VELOCITY-HEIGHT) J 

310 HEIGHT=0 

320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READINGS WER 

340 PRINT " F U E L " ; T A B ( 1 2 ) ; " VELOCITY" ;TA 
B ( 2 4 ) J " HEIGHT" 
350 GOSUB 430 
360 GOSUB 410 

370 I F HEIGHT>=0 THEN END 

380 IF H EI GHT <0 THEN PRINT "NEW CRATER 
N M00N"INT(ABS(100*[HEIGHT+.2)/3) J/100 "M 
ETERS DEEP!" 

390 PRINT "YOUR SKILL RATING IS " I N T ( 1 
*FUEL/( VELOCITY-HEIGHT)) 
400 END 



410 PRINT " - ■ 

u 

420 RETURN 

430 PRINT INT(1 00*FUEL)/1 00 ; 

440 PRINT TAB ( 1 2 ] ;-I NT ( 1 00 *VEL0CITY )/1 00 

i 

450 I F HEIGHT> = THEN PRINT TAB ( 24 ) ; I NT ( 

100*HEIGHT]/100 

460 IF HEIGHT<0 THEN PRINT 

470 RETURN 

Once you can land consistently with the program in its current 
form, change line 50 to the following, to create a whole new challenge: 

50 FU EL = 1 00 + R NO ( 1 ) *40 
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Monte Carlo 
Simulations 



Monte Carlo simulations are those simulations that depend on 
chance or random factors. The random elements in such programs 
may be weighted to simulate probabilities within specified limits 
(such as the results of throwing a pair of dice) or may be more or less 
genuinely random. In this chapter, you'll see a fairly "open" Monte 
Carlo simulation in action. 

Our program is designed to simulate the effect of Brownian 
movement on a very small particle suspended in a fluid. The random 
motion of such a particle, which is observed when the particle is less 
than about one-thousandth of a millimeter in diameter, is caused by 
the impact of the atoms or molecules of the fluid on the particle. 
Brownian movement can be seen as smoke disperses in still air, or 
as ink is diffused in a tumbler of water. It's named after Robert Brown, 
a Scottish botanist who in 1827 first noted, but was unable to explain, 
the movement seen when looking through a microscope at a solution 
of pollen grains in water. 

The simulation is shown on a 10 by 10 grid, with a single pollen 
grain, depicted by "0". When you run the program, you enter the po- 
sition where you want the grain to start, and also set up a "goal" po- 
sition. The simulation ends when the pollen grain reaches the goal 
position. 
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Here's how it begins: 

ENTER FIRST START CO-ORDINATE (LESS 
T H A N 1 ) 
? 3 

ENTER SECOND START CO-ORDINATE (LESS 
THAN 10) 
? 4 



ENTER FIRST END CO-ORDINATE (LESS 
THAN 10) 
? 6 

ENTER SECOND END CO-ORDINATE (LESS 
THAN 10) 
? 7 



MOVE 1 



X . . . 



And here are some screen printouts as the simulated Brownian 
movement makes the grain drift about: 



MOVE 5 
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MOVE 9 



. . . . . x . . . 



MOVE 11 




X 



Finally, on the fourteenth move, the pollen grain reaches the tar- 
get position, and the demonstration ends: 



MOVE 14 







D EM ONSTRATI ON OVER 



Here's the listing so that you can explore this Monte Carlo dem- 
onstration: 



10 REM MONTE CARLO DEMONSTRATION 

20 GOSUB 3 7 : R E M INITIALIZE 

3 REM **************************** 

40 REM MAJOR CYCLE 

50 GOSUB 1 00 : R EM PRINT 

60 IF P = EP AND Q = E Q THEN PRINT .-PRINT 11 D E 

M ONSTRATI ON OVER" : END 

70 GOSUB 230 : R EM GENERATE MOVE 

80 GOTO 50 

9 R EM **************************** 
1 00 R EM PRI NT OUT 
1 1 A $ ( P , Q ) = » » 
1 20 M=M+1 

130 CLS : PRINT: PRINT 
1 4 PRINT " M V E " M 
1 50 FOR X = 1 T 1 

1 6 FOR Y = 1 T 1 

170 PRINT A $ ( X , Y J ; » " ; 
180 NEXT Y 
1 90 PRINT 

2 NEXT X 
21 RETURN 

2 2 REM **************************** 
230 R EM GENERATE MOVE 

240 A $ [ P , Q ] = » . » 
250 G=0 

260 T = I NT ( R ND [1 ) *4 ) +1 

270 ON T GOSUB 3 1 , 3 2 y 3 3 v 3 4 

280 I F G = THEN 260 

290 I F G = 1 AND RND ( 1 } > . 5 THEN 260 

3 00 RETURN 

310 IF P>1 THEN P = P-1 : G = G + 1 : RETURN 
320 I F P<1 THEN P = P + 1 : G = G + 1 : RETURN 
330 IF Q>1 THEN Q=Q-1 : G=G+1 : RETURN 
340 I F Q<1 THEN Q=Q+1 : G=G+1 : RETURN 
350 RETURN 

3 6 REM **************************** 
370 REM INITIALIZE 
3 8 CLS 

390 RANDOMIZE V A L ( R I G H T $ ( T I M E $ , 2 ] ] 
400 DIM A$ [ 1 , 1 ] 
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410 FOR X = 1 T 1 

420 FOR Y = 1 T 10 

430 A$[X f Y)="." 

440 NEXT Y 

450 NEXT X 

460 PRI NT : PRI NT 

470 PRINT "ENTER FIRST START CO-ORDINATE 

( LESS THAN 10)" 

480 INPUT P 

490 IF P <1 OR P >1 THEN 480 

500 PRINT "ENTER SECOND START CO-ORDI NAT 
E [LESS THAN 10)" 

51 INPUT Q 

520 I F Q<1 OR Q>1 THEN 51 
530 PRI NT : PRI NT 

540 PRINT "ENTER FIRST END CO-ORDINATE ( 
LESS THAN 10)" 

550 INPUT EP 

560 I F EP = P OR EP <1 OR EP >1 THEN 550 
570 PRINT "ENTER SECOND END CO-ORDI NAT E 
(LESS THAN 10)" 

580 INPUT EQ 

590 I F EQ=Q OR EQ<1 OR EQ >1 THEN 580 
600 A$ (P ,Q) ="0" 
61 A$(EP,EQ)="X» 
6 20 RETURN 




We can also create simulations that use simultaneous equations to 
show the effects of two interacting factors on each other. These equa- 
tions are often used in predator/prey simulations like the one we'll 
examine in this chapter. 

In this example, we have two forms of cell living in a culture. 
Both cells feed on nutrients in the culture medium, and attempt to 
reproduce as the simulation runs. Cell X also needs to consume cell 
Y in order to survive. If there are too many of cell X, it will kill off all 
of cell Y, and will then die itself. If there are none of cell X, cell Y will 
reproduce wildly, and choke the medium. 

You are allowed to set the starting numbers of cells X and Y in 
each run of the simulation. You have to try and create a population 
balance that will allow the cell colony to survive for as long as pos- 
sible. Although the degree of aggressiveness of cell X toward Y 
changes from run to run of the program (so that you can't just learn 
which numbers will always work), it does not change within a single 
run, so you can try various combinations to see how they behave. 
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The program starts by reporting the decay factor, which is the 
degree of aggressiveness cell X displays toward Y. It then asks you to 
enter the starting populations: 

DECAY FACTOR IS .14 8 9 6 6 

ENTER NUMBER OF CELL X TO 
START (LESS THAN 40) 
? 3 7 

WE HAVE 3 7 X CELLS 

ENTER NUMBER OF CELL Y TO 
START ( LESS THAN 40 ) 
? 25 

Once you've made your choice, the program works out the life 
history of your cell cultures, keeping you up to date: 



TIME ELAPSED : 


1 


37 CELL X 




2 5 CELL Y 




TIME ELAPSED : 


2 


3 5 CELL X 




17 CELL Y 




TIME ELAPSED : 


3 


46 CELL X 




9 CELL Y 




TIME ELAPSED : 


4 


7 7 CELL X 




2 CELL Y 




TIME ELAPSED : 


5 


3 7 CELL X 




1 CELL Y 





YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 
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THE BEST SURVIVAL TIME SO FAR IS 5 



DO YOU WANT A NEW RUN [ Y OR N ) ? 



The program also keeps track of the "longest life so far. " It gives 
you an opportunity, in subsequent runs, to see the effect of different 
starting populations: 



ENTER NUMBER OF CELL X T 
START (LESS THAN 40 ) 
? 25 



WE HAVE 25 X CELLS 



ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40) 
? 3 7 



TIME ELAPSED: 4 
2 CELL X 
35 CELL Y 



TIME ELAPSED: 5 
1 CELL X 
36 CELL Y 



YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 



THE BEST SURVIVAL TIME S FAR I S 



ENTER NUMBER OF CELL X T 
START ( LESS THAN 40 ) 
? 3 8 



WE HAVE 3 B X CELLS 

ENTER NUMBER OF CELL Y T 
START ( LESS THAN 40 ] 
? 3 8 



25 



TIME ELAPSED: 


2 


13 CELL X 




3 4 CELL Y 




TIME ELAPSED : 


3 


6 CELL X 




33 CELL Y 




TIME ELAPSED: 


4 


3 CELL X 




3 3 CELL Y 




TIME ELAPSED : 


5 


1 CELL X 




34 CELL Y 





YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 



THE BEST SURVIVAL TIME SO FAR IS 5 



D YOU WANT A NEW RUN { Y OR N ) ? 

ENTER NUMBER OF CELL X TO 
START (LESS THAN 40 ) 
? 2 2 



WE HAVE 22 X CELLS 



ENTER NUMBER OF CELL Y T 
START (LESS THAN 40 } 
? 3 



TIME ELAPSED: 3 
13 CELL X 
2 3 CELL Y 



TIME ELAPSED: 4 
14 CELL X 
21 CELL Y 



TIME ELAPSED : 


5 


15 CELL X 




18 CELL Y 




TIME ELAPSED : 


6 


19 CELL X 




15 CELL Y 




TIME ELAPSED : 


7 


27 CELL X 




12 CELL Y 




TIME ELAPSED: 


8 


41 CELL X 




7 CELL Y 




TIME ELAPSED • 


9 


74 CELL X 




2 CELL Y 





TIME ELAPSED: 10 
32 CELL X 
1 CELL Y 



YOUR CELL CLASH SIMULATION SURVIVED 
FOR 10 TIME PERIODS. 



THE BEST SURVIVAL TIME SO FAR IS 10 



DO YOU WANT A NEW RUN [Y OR N ] ? 
OK 



The most crucial parts of the program are the equations that cal- 
culate the cell populations. These are lines 330 and 340: 

330 CP=CP+ (( 8 *CP-CP* EP/3 ) *FD ) 
340 EP=EP+( [4*EP-EP*CP]*.01 ] 

Modify parts of these program statements and watch the effect this 
has on the progress of your simulation. You'll probably be surprised 
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to see the far-reaching effects of even the most apparently minor 
change. Here's the listing: 



10 REM SIMULTANEOUS EQUATIONS 
20 CLS 

30 RANDOMIZE V A L [ R I G H T $ [ T I M E $ , 2 ) ) 
40 HS=0 

5 FD = R ND ( ) 

60 PRINTsPRINT "DECAY FACTOR I S " F D 
70 G0SUB 550 
80 CLS 

90 PR I NT : PR I NT 

1 00 PRINT "ENTER NUMBER OF CELL X TO 

START ( LESS THAN 40)" 
110 INPUT CP : I F CP <1 OR CP >39 THEN 1 1 
120 PR I NT : PR I NT 

1 30 PRINT "WE HAVE" CP" X CELLS" 
1 40 PR I NT i PR I NT 

150 PRINT "ENTER NUMBER OF CELL Y T 

START [ LESS THAN 40 ) " 
1 6 INPUT EP : I F EP <1 OR EP >3 9 THEN 1 6 
1 70 C LS : PR I NT : PR I NT "PLEASE STAND B Y . . 

180 GOSUB 550 : CLS 

190 D A=1 

200 I F CP >EP/FD THEN CP=EP/FD 

210 PRINT " 11 

220 PRINT "TIME ELAPSED: "DA 

230 PRINT INT(CP)"CELL X" 

240 PRINT INTt EP) "CELL Y" 

250 REM *************************** 

260 REM MAJOR CYCLE 

270 GOSUB 550 

280 DA=DA+1 

290 PRINT " " 

300 PRINT "TIME ELAPSED: "DA 

31 I F CP >EP/FD THEN CP=EP/FD 

320 REM EQUATIONS FOLLOW; MODIFY PARTS 

OF THEM TO SEE WHAT HAPPENS 

330 CP=CP+( (8*CP-CP*EP/3) *FD) 

340 EP=EP+(l4*EP-EP*CP)*.01) 

350 PRINT INT[CP)"CELL X" 

360 PRINT I N T { EP) "CELL Y" 

370 IF EP<2 OR CP<2 THEN 410 
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380 GOSUB 550 

390 GOTO 280 

400 REM ********************* ****** 

41 IF DA >HS THEN H S = D A 

420 PRINT.- PRINT 

430 PRINT "YOUR CELL CLASH SIMULATI ON 

R V I V E D " 

440 PRINT 

450 PRINT 



SU 



"FOR" DA "TIME PERIODS." 



460 PRINT 

I S " H S 
470 GOSUB 
PRINT 



"THE BEST SURVIVAL TIME SO FAR 



550 



480 



490 PRINT "DO YOU WANT A NEW RUN ( Y OR 
J ? " 

500 A$=INKEY$ 

510 I F A $ < > 11 Y 11 AND A $ <> » N " THEN 500 

520 I F A $ = " Y " THEN CLS : GOTO 60 

530 PRINT "OK":PRINT:PRINT: END 

5 4 REM *************************** 

550 FOR J=1 TO 2000 : NEXT J 

5 6 RETURN 
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The Meaning 
of Life 



In the previous chapter we looked at a program that simulated the 
action of two competing life forms occupying a single space. In that 
simulation, the growth and decay of the cells were governed by si- 
multaneous equations. In this chapter, we'll look at two versions of 
a simulation classic, John Conway's LIFE. This simulation models 
the growth and development of a colony of cells living on a grid. 

Developed by Conway when he was at Gonville and Caius Col- 
lege, in Cambridge, England, LIFE produces some amazing effects, 
whose richness is not even hinted at by the rules under which the 
cells live, reproduce, and die. To show this, we'll look at a colony of 
cells that starts off forming a square. This particular colony dies off 
after three "generations": 

GENERATI ON 1 



xxxxx 

X X 
X X 
X X 

xxxxx 



xxxxx 

X X 

X X 
X X 

xxxxx 
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GENERATI ON 2 



XXX 
XXXXX 
XX X XX 
XXX XXX 
XX X XX 
XXXXX 
XXX 



XXX 
XXXXX 
XX X XX 
XXX XXX 
XX X XX 
XXXXX 
XXX 



GENERATI ON 3 



X 

X X 



X 

X X 



X X 
X X 



X X X X 

XX XX 



Another colony, which begins life in an "X" shape, evolves as 
follows (the program prints a "mirror image" colony to the right of 
the original colony in all these sample runs). 



GENERATI ON 1 



XX XX 

XX XX 

X X 

XX XX 

XX XX 
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GENERATION 2 



XXX xxx 
XX xx 
xxx xxx 



GENERATION 3 



X x 

XX xx 

x x xx 

xx xx 

x x 



GENERATION 4 



X 
XXX 
XX XX 
XXX 
X 



X 
XXX 
XX XX 

xxx 

X 



GENERATI ON 5 



xxx xxx 

x x x x 

X x x x 

x x x X 

xxx xxx 



GENERATION 6 



X 
XXX 
XXX 
XXX XXX 
XXX 
XXX 
X 



X 
XXX 
X X X 
XXX XXX 
XXX 
XXX 
X 



GENERATI ON 7 

XXX XXX 

X X X X 

x X X X 

X X X X 

xxx XXX 

GENERATI N 8 

X X 
X X 
X X 

xxx xxx xxx xxx 

x x 

X X 
X X 



If we continue to run this simulation, each horizontal set of X's 
flips to become a vertical set, and the vertical sets become horizontal. 
This pattern of three alternating from horizontal to vertical is one of 
a number of patterns that regularly crop up in runs of the program. 
This particular pattern is commonly known as "traffic lights." 
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The Rules 

Conway's rules are not very complicated, but they are sufficient 
to give rise to the marvelous effects we've been looking at They as- 
sume each cell has eight neighbors. (We keep the outermost ring of 
cells empty; these are checked, but not printed out) If a cell has two 
or three neighbors, it survives to the next generation. If a cell has four 
neighbors, it dies out in the next generation due to overcrowding. If 
there are exactly three cells neighboring an empty cell, a cell is 
"born" in that location in the next generation. 

The rules are applied simultaneously across the whole grid. We 
do this by having a second grid, which records the changes as the 
first grid is scanned. The second grid is then copied into the first be- 
fore it is printed. 

This is the listing that produced the effects above. The DATA 
statements at the end can be, of course, changed to whatever initial 
colony you desire: 



1 
SO 
30 
40 
50 
60 

7 

8 
90 
1 
1 1 
1 20 
1 30 
1 40 
1 50 
1 60 
17 
180 
190 

200 
21 
220 
230 



REM CONWAY ' S LIFE SIMULATION 
REM DEFINED INITIAL COLONY 
G0SUB 46 : R EM INITIALIZE 

REM ************************* 

REM MAJOR CYCLE 

GENERATI 0N=GENERATI 0N+1 

G0SUB 290 : R EM PRINTOUT 

G0SUB 1 1 : R EM EVOLVE 

GOTO 60 

************************* 

EVOLVE 

X=2 TO 12 
Y=2 TO 12 



REM 
REM 
FOR 
FOR 
C = 
I F 
I F 
I F 
I F 
I F 
I F 
I F 
I F 
IF 



A $ 
A $ 
A $ 
A $ 
A $ 
A $ 
A $ 
A $ 
A $ 



X - 1 r Y - 1 ) = " X " THEN C = C + 1 

X - 1 , Y ) = 11 X 11 THEN C = C + 1 

X - 1 , Y + 1 ) = 11 X » THEN C = C + 1 

X , Y-1 ) ="X" THEN C = C + 1 

X , Y + 1 ) = " X " THEN C = C + 1 

X + 1 , Y - 1 ] = 11 X " THEN C = C + 1 

X + 1 , Y ) = " X " THEN C = C + 1 

X + 1 f Y + 1 ] = " X " THEN C = C + 1 

X , Y ) = " X " AND C <>2 AND C <>3 



THE 



N B $ ( X , Y ] = " " 
240 I F A $ ( X , Y ) = " 

ii X " 



AND C = 3 THEN B$ (X , Y ) = 
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250 NEXT Y 
260 NEXT X 
270 RETURN 

2 8 REM ************************* 

290 REM PRINTOUT 
300 CLS 
310 PRINT 

320 PRINT TAB(4];« GENERATION "GENERATION 

330 PRINT 

340 FOR X = 2 T 12 

350 FOR Y = 2 T 1 2 

360 A$ (X,Y) =B$ (X, Y) 

370 PRINT A$(X,Y) ; 

3 8 N EXT Y 

390 FOR Y=1 2 TO 2 STEP-1 

400 PRINT A$[X,Y] ; 

41 NEXT Y 

420 PRINT 

430 NEXT X 

440 RETURN 

450 REM ************************* 

460 REM INITIALIZATION 

470 CLS 

480 RANDOMIZE V A L ( R I G H T $ ( T I M E $ f 2 ) ) 

490 D EF I NT A-Z 

500 DIM A$ ( 1 3 , 1 3 } , B$ (1 3 , 1 3 ] 

510 PRI NT : PRI NT » PLEASE STAND BY..." 

520 FOR X=1 TO 13 

530 PRINT 14-Xg 

540 FOR Y = 1 T 1 3 

550 R EM FILL ARRAY WITH BLANKS 

560 A $ ( X , Y ) = » » 

570 B$[X,Y)=A$(X,Y] 

580 NEXT Y 

5 90 NEXT X 

600 READ D : I F D=99 THEN 630 

610 READ E:A$(D,E)="X":B$(D,E)="X" 

620 GOTO 600 

630 GENERATIONS 

640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 

660 DATA 7,7 

670 DATA 8,6,8,8,9,5,9,9 

700 DATA 99 



Colonies at Random 

If you prefer to let your computer generate a starting colony at 
random, leaving you simply to admire its work, add the following 
= lines: 

" 555 I F RND ( 1 ) > . 5 THEN A.$ (X , Y ) s"X" : GOTO 5 

70 

595 GOTO 630 

The evolution of a randomly generated colony is always fasci- 
nating to watch, as these sample runs indicate: 



GENERATION 1 

X X XXXXXXXXXX X X 
X XX XX XX x 

XXX xx xxx 

x xxxxxx x 

X XX x 

X x x X 

X XX XXXXXX XX X 

X XXX X X xxx x 
x xxxxxx x 

xxx xxx 
xxxxxx xx xxxxxx 



GENERATI ON 2 

XX XXXXXX XX 
XX X XX X XX 

XX XXX XX XXX XX 

X XX X 

XX 

XXX XX xxx 

xxxxx xxxxxx xxxxx 

XX XX XX XX 

XXXXXXXXXX 
X XX XX XX X 

X XXX xxx X 
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GENERATI ON 



3 



X XXXX X 
XX XX XX 

XX XX XX XX XX 
X XX X 
X XXXX X 

X X XX X X 

X XXXXXXXXXXXX X 

XX XX XX XX 

XX XXXXXX XX 

X XX XX XX X 
X X X X 



GENERATION 9 



XX 

X X XX 

X X 
X XXXX X 
XXXX 
X XX X 
X X XX 

XX XX X 

XX 



GENERATI ON 1 2 



XX XX 
xx XX 
XXX XXX 

xxxxxxxxxx 

XX XX XX 

XXXXXX 
XXXX 
XXX XXX 
X X 
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XX 

XX 



XX 
X 

XX 



GENERATION 24 



XX XXX 
XX XX 
XX X 
XX XX 
X X 
X 

XX 
XX XX 
X X 
XX 



XXX XX 
XX XX 
X XX 
XX XX 
X X 
X 

XX 

XX XX 
X X 
XX 



GENERATION 3 9 
XX xx 

X X XX XX X X 

XXX xxx 
XX XXX X X xxx XX 
X XXX XXX X 

XXX X X X X XXX 

XX XXXXXXXX XX 
X X XX XX XX X X 
X XX XX XX X 

X X x X 

XX xx 



GENERATI ON 51 



XXX 
X X 
X X 

XXX 



X 

XX 



X 
XX 



XXX 
X X 
X X 

XXX 



GENERATI ON 62 

X X 
X X X X 

X X XX XX X X 

X XX XX X 



Simulations 



In this section of the book we will create programs that perform two 
simulations at once. First, the programs simulate the behavior of a 
robot who follows a series of commands we enter before the program 
is run. Second, the programs emulate a computer language inter- 
preter, enabling the computer, and the computer-controlled robot, to 
understand instructions we give it in a Robot Control Language RCL, 
developed especially for this book. 

In mid 1983 Muse Software, of Baltimore, released a superb ro- 
bot simulation program under the name of Robotwar. This program 
allows you to pre-program a number of robots before setting them 
loose on a computer-screen battlefield to fight it out for victory. Ro- 
botwar allows you to program the robots in a language which is es- 
sentially English, with a few BASIC commands (such as GOTO and 
GOSUB) thrown in. 

Our program, ROBOT LOGO and POINT-DUTY ROBOT (which is 
derived from the first program), are much simplier than Robotwar, 
yet still produce satisfying, and surprisingly interesting, results. 

We'll look first at ROBOT LOGO. To show you what it can do, and 
to give you an idea of what an RCL listing looks like, here's a program 
that gets the robot to trace out my initials on the screen, leaving a 
trail as it goes: 
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GO 6,10 
FACE 90 
FORWARD 7 
GO 8,26 
FORWARD 5 
PR 

GO 6,16 
FACE 180 
FORWARD 6 
GO 6 , 26 
FORWARD 6 

GO 6,3^ 
FORWARD 6 
PRINTOUT 



This is the result of running that program: 



There are twelve commands in RCL, any of which, included in a 
program, can be abbreviated to its first two letters. The RCL program 
is written into the overall BASIC program, as a set of up to twenty 
DATA statements, terminated with a DATA statement that just con- 
tains an asterisk. These DATA lines are kept near the beginning of 
the program. The current line being processed appears at the top of 
the screen as the progam is running, so you can see the relevant line, 
and its effect, as it occurs. 

The Language 

Here is the complete vocabulary of RCL: 
START (abbreviated to ST) Start again. 

PRINTOUT (PR) Stop the robot action, clear the screen, and print 
out the current situation before continuing with the program 



* 



X X X X, X X X 



X X 

X X 

X X X X X 

X X 

X X 

X X 



X 
X 
X 
X 
X 



run. 
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FORWARD (FO) This is followed by a single number, and it tells the 
robot to move forward the number of "steps" or "spaces" indi- 
cated by the number that follows the command. 

BACK (BA) The opposite, naturally enough, of FORWARD. 

TURN (TU) Followed by a number, this command turns the robot 
through the specified number of degrees; it starts a run at zero 
degrees, designated as facing the top of the screen. 

HOME (HO) Returns the robot to the center of the screen, facing up- 
wards. 

CLEAN (CL) Cleans the previous steps away. (The action of this 
command, like the others, will become clear once you use it) 

GO This is followed by two numbers, which are the coordinates to 
which the robot moves without leaving a trail between its old po- 
sition and the new one. 

RANDOM (RA) Moves the robot to a randomly chosen position on 
the screen; acts as a random GO. 

REPEAT (RE) Followed by a number, this command allows you to 
cycle through a section of the program a specified number of 
times before continuing. This can produce some fascinating ef- 
fects, as you'll see shortly. 

END REPEAT (EN) Terminates the REPEAT cycle; all the com- 
mands in the RCL program that lie between REPEAT and END 
REPEAT will be cycled through the number of times specified. 

FACE (FA) Followed by a number, this turns the robot to face an ab- 
solute angle, with the top of the screen as zero degrees (whereas 
TURN is relative to the current angle the robot is facing). 

This short set of commands can be combined to produce many 
startling results. If you are at all familiar with the Logo programming 
language, you will recognize that several of the RCL commands are 
very similar to the turtle graphic commands in Logo. Logo was de- 
veloped under Seymour Papert, with Marvin Minsky, Harold Abelson, 
and Andrew diSessa, at the Massachusetts Institute of Technology by 
the Artificial Intelligence Group. It was designed so that the way it 
was used by programmers would be closer to the way human beings 
usually solve problems, rather than being heavily influenced by how 
machines run programs. Of course, our RCL is pretty limited in com- 
parison with Logo, although it can easily be extended to whatever 
level of complexity you like. Studying the listing will show you how 
it is relatively easy to write a program that interprets another pro- 
gram written in a language you have created. 

Despite its limitations, you can have a lot of fun with RCL — as 
the following sample runs indicate. 
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This RCL program produces octagons: 



OCTAGON 

GO 11,35 
REPEAT 8 
FORWARD 4 
TURN 45 
END REPEAT 
PRINTOUT 



X X X X X 



X X X X X 



You'll get diamonds with this one: 



DIAMONDS 

RANDOM 
FACE 45 
REPEAT 4 
FORWARD 2 
TURN 90 
END REPEAT 
PRINTOUT 
START AGAIN 



And this RCL listing creates squares: 



SQUARE 

GO 11,35 X X X X X X X 

REPEAT n X y 

FORWARD 6 Y y 

TURN 90 Y y 

END REPEAT £ * 

p rintout X X X X X X X 



Descending triangles are easy. Note that we're using abbreviated 
commands in this RCL listing: 



X 

X X 
X X 
X X X X 



X X 
X X 
X X X X 

X X 
X X 
X X X X 

X X 
X X 
X X X X 

DESCENDING TRIANGLES x x 

X X 

GO 5,5 X X X X 

RE 6 XX 

F0 3 XX 

TU 135 X X X X 

FO 3 X 

TU 135 

FO 3 

FA 90 

FO 3 

FA 180 

FO 3 

FA 

PR 

EN 

« 
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The next RCL program gets our robot to walk down stairs: 



STAIRS 

GO 1 , 1 
RE 6 
FACE 90 
FORWARD 3 
FACE 180 
FORWARD 3 
END REPEAT 
PRINTOUT 
* 



If you're feeling very creative, you can also get the robot to trace 
out pictures, like my initials earlier, or this "side view of a table": 

xxxxxxxxxxx 
X x 
X x 
X x 
X X 
X 

X X 

X x 

SIDE VIEW OF TABLE x x 

X x 

GO 20,50 
FACE 315 
FORWARD 9 
FACE 90 
FORWARD 10 

FACE 225 
FORWARD 10 
PRINTOUT 
« 
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X X 
X 
X 

X X X X 
X 
X 

X X X X 
X 
X 

X X X X 
X 
X 

X X X X 
X 
X 

X X X X 
X 
X 



Writing a Program 



As I said earlier, the RCL program is held in a series of DATA 
statements near the beginning of the listing: 



10 


REM ROBOT LOGO 




110 


G0SUB 1 7 3 : R EM 


INITIALIZE 


12 


GOTO 4 9 




13 


P £ M *********** 


***************** 


14 


REM 




15 


REM 




16 


REM 




17 


REM 




18 


REM 




19 


REM 




2 


REM 




2 1 


REM 




2 2 


REM 




2 3 


REM 




2 4 


REM 




2 50 


REM 




2 6 


REM 




2 70 


REM 




2 8 


REM 




2 90 


REM 




3 


R EM 




3 1 


REM 




320 


DATA » * " 




3 3 


REM *********** 


***************** 



Here's a listing to create random octagons. We can learn a lot 
about RCL by examining it: 

OCTAGON 

RANDOM 
REPEAT 8 
FORWARD 2 
TURN 45 
END REPEAT 
PRINTOUT 
START AGAIN 
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It begins with RANDOM, which moves the robot to a randomly 
chosen position on your screen. The dimensions of the screen are 
included within the program (see lines 1770 and 1780 in the listing 
in the next chapter), so it can be changed easily to work on your sys- 
tem no matter what its screen size. 

Once the robot is in place, the computer comes to the line RE- 
PEAT 8. This tells it, naturally enough, that the next section of the 
program (down to the END REPEAT) is to be run through eight times. 
The robot moves FOWARD 2, then TURNs through 45 degrees. Once 
it has done this eight times, it has traced out an octagon, which 
PRINTOUT puts on the screen for you to see: 



XXX 



XXX 
XXX 
X X 

X 
X 
X 

X X 
XXX 



XXX 



XXX 



XXX 



XXX 



X 
X 
X 

XXX 



XXX 



X X 



XXX 



XXX 



The final command, START AGAIN, sends action back to the first 
line of the program, to select a new random robot position. RCL au- 
tomatically rejects values that are off the screen, so the program will 
not crash if you try to walk off the edge of the robot's world. It will 
simply draw the required material "off the screen," as it were, and 
then continue at the correct place when it returns to the screen. 

From the examples we've looked at, you can see that the robot 
can be made to do a great deal. The biggest limitation is in the TURN 
and FACE commands. In its present form, it can only work in incre- 
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merits of 45 degrees, and will change any angle into the closest mul- 
tiple of 45 before it sends the robot out along that path (see lines 1040 
and 1620). This restriction was necessary in order to ensure that, de- 
spite the very rough resolution of the grid upon which the robot 
walks, a reasonable picture was still drawn by the robot's trail. 

The full ROBOT LOGO listing is presented in the next chapter. 
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8 



The 
ROBOT LOGO 

Listing 



You're sure to have a lot of fun using this listing to get the robot to 
follow programs you have devised. Simply place them, in the form of 
DATA "REPEAT 8", in lines 140 though to 310 (note the use of quo- 
tation marks around the RCL statement). Line 320, where you see a 
lone asterisk in the DATA statement, tells the program that it has 
come to the end of your listing. 

I got my program listings to the printer by running the program, 
then entering and running the following directly: 

FOR Z= 1 TO 20 : LPRINT A$( Z) : NEXT Z 

In its present form the program can cope with RCL programs 
that are up to twenty lines long. If you want it to accept longer pro- 
grams, simply change the 20 in lines 530 and 1820 to the number of 
commands you want to include. Remember that you need to allow for 
a command slot to hold the asterisk (end-of-program flag) line. 

Here, then, is the listing so that you can run your own robot: 

10 REM ROBOT LOGO 

110 G0SUB 1 7 3 : R E M INITIALIZE 

120 GOTO 490 
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1 30 
1 40 
1 5 
1 60 
1 70 
1 8 

1 90 
200 
21 
220 
230 
240 

2 5 

2 6 
270 
28 
290 
300 
31 
320 
330 
340 
350 

3 6 
370 
3 8 
3 90 
400 
41 
420 
430 
440 
450 
46 
470 
48 
490 
500 
51 
520 
5 30 
540 
550 
560 



REM *********#******###***###### 

REM 

REM 

R EM 

REM 

R EM 

REM 

R EM 

REM 

R EM 

REM 

R EM 

REM 

R EM 

REM 

R EM 

REM 

R EM 

REM 

DATA " * " 

REM **************************** 
REM INT UX , AX 

UX=I NT ( UX+ . 5 ] : AX=I NT ( AX+ . 5 ] 
RETURN 

REM **************************** 

REM PRINT OUT 

C L S : R E M OR LOCATE 1,1 OR SIMILAR 

PRINT " S T E P " P S N " > " ; A $ ( P S N ] .-PRINT 

FOR J=1 TO DEPTH 

FOR K = 1 TO BR EADTH 

PRINT Z $ ( J , K ] ; 

NEXT K 

PRINT 

NEXT J 

RETURN 

REM **************************** 

REM READ PROGRAM 

C OU NT= C OU NT+1 

R EAD A$ ( COUNT ) 

IF A$(COUNT)="*» THEN 550 

I F C0UNT<20 THEN 500 

REM **************************** 

REM EXECUTE PROGRAM 

PSN = : R EM PROGRAM STEP NUMBER 



5 7 


PSN 


=PSN+1 








580 


I F 


PSN=21 


THEN 


58 s R EM END 




590 


F L A G = 








6 00 


M $ = 


A$ ( PSN ) 








61 


I F 


M $ = " * 11 


THEN 


61 s R EM END 




620 


N $ = 


LEFT$ [ M 


$,2] 






6 30 


I F 


N $ = " S T " 


THEN 


560:REM START 


AGAIN 


6 40 


I F 


N $ = " P R " 


THEN 


GOSUB 3 8 : R E M 


PR I NT 


UT 












6 50 


I F 


N $ = " F " 


THEN 


F L A G = 1 




660 


I F 


N $ = 11 B A " 


THEN 


F L A G = 2 




670 


I F 


N $ = " T U 11 


THEN 


F L A G = 3 




680 


I F 


N $ = " H 11 


THEN 


F L A G = 4 




6 9 


I F 


N $ = " C L 11 


THEN 


F L A G = 5 




700 


I F 


N $ = " G " 


THEN 


F L A G = 6 




71 


I F 


N $ = " R A 11 


THEN 


F L A G = 7 




7 20 


I F 


N$="RE" 


THEN 


F L A G = 8 




730 


I F 


N $ = " E N 11 


THEN 


F L A G = 9 




7 40 


I F 


N $ = " F A " 


THEN 


F L A G = 1 




750 


ON 


FLAG GOSUB 7 8 0,940,1000,1160,1220 


,1260,1400,1460,1530,1580 




760 


GOTO 570 








770 


REM 








780 


REM 




F 


R W A R D 




7 90 


M $ = 


M I D $ [ M $ 


, 4 ] 






800 


I F 


ASC [ M $ ] 


= 87 T 


HEN M $ = M I D $ ( M $ , 


6 ) 


8 1 


F$ = 


ii p ii 








820 


NUM 


= VAL ( M $ 


) 






8 30 


FOR 


E = 1 T 


NUM 






8 40 


I F 


UX<1 OR 


UX>D 


EPTH THEN 880 




850 


I F 


AX<1 OR 


AX>B 


READTH THEN 880 





860 Z$ ( UX, AX] =T$ 

870 REM DELETE THE ' *2 1 AT END OF NEXT 

TWO LINES IF BETTER ON YOUR SYSTEM 

880 IF F$="F" THEN U X= U X+ U P : A X= A X+ A C * 2 

890 IF F$="B" THEN U X= U X- U P s A X = A X - A C * 2 

900 GOSUB 340 

910 NEXT E 

920 RETURN 

930 REM #**#*#**#####*##*##*#***##*# 

940 R EM BACK 

950 M$=MID$(M$,4) 

960 IF ASC(M$)=75 THEN M $ = M I D $ [ M $ , 3 J 

970 F$="B" 



980 GOT 820 

990 REM **************************** 



10 


REM 


TURN 






1010 


M $ = 


M I D $ ( M $ , 4 ] 






10 2 


I F 


AS C ( M $ J =7 8 THEN M$ = MID$(M$,3] 




1030 


NUM 


= V A L ( M $ ) 






1 040 


Y= I NT ( [ NUM + 1 7 . 5 ] /45 ] 






1050 


T C 
I P 


Y=0 OR Y=8 THEN RETURN 






10 6 


FOR 


J=1 TO Y 






10 7 


I F 


UP = -1 AND AC = THEN A C = 


1 : GOTO 


1 1 


3 










10 8 

n 
u 


I F 


UP = AND A C = 1 THEN UP = 1 


sGOTO 1 1 3 


1090 


I F 


UP=1 AND AC=0 THEN AC=- 


1 : GOTO 


1 1 


3 










1100 


I F 


UP = AND A C= -1 THEN UP = 


-1 s G OTO 


1 


1 30 










1110 


I F 


UP = -1 AND A C = - 1 OR UP = 1 


AND AC 


= 1 



THEN AC = : G OT 113 
1120 IF UP=-1 AND AC=1 OR UP=1 AND AC = -1 

THEN UP=0 
1130 NEXT J 
1140 RETURN 

115 REM **************************** 

116 REM HOME 
1170 AX=INT{ ( BREADTH+ .5 )/2 J 
1180 UX=INT( ( DEPTH+ .5 )/2 ] 
1190 UP=-1 s A C = sREM FACES UP 
1 200 RETURN 

1210 REM **************************** 
1220 REM CLEAN 
1 230 GOSUB 1870 
1240 RETURN 

1250 REM **************************** 
1260REM GO X,Y 

1270 P=0 
1280 P=P+1 

1290 IF M I D $ ( M $ , P f 1 } = » , " THEN 1320 

1300 IF P < L E N ( M $ ) THEN 1280 

1310 RETURN: REM ERROR 

1 320 UX=VAL ( MID $ ( M $ , 4 , P-1 ) ] 

1 330 AX=VAL(RlGHT$[M$,LENtM$)-P) ) 

1340 GOSUB 340 

1350 IF UX<1 OR UX>DEPTH THEN 1380 

51 



1360 
1370 
1380 
1390 
140 
1 41 
1420 
1430 
1 440 
1450 
1 460 
1 47 
1 480 
1 490 
150 
1510 
1520 

15 30 
1 540 
1550 
1560 

157 

158 
1590 
1600 
1610 
1620 

16 30 
1 6 40 
1650 
1660 
1670 
16 8 

16 90 
170 
1710 

17 20 
17 3 
17 40 
1750 
17 6 

1770 
1780 



IF AC <1 OR AC >BR EADTH THEN 1380 

Z$[UX, AX)=R$ 

RETURN 

R [= M ########**#*###*##*###****#* 

REM RANDOM 

AX= I NT [ RND (1 ) *BREADTH) 

UX=I NT [ RND [ 1 J * D E P T H ] 

Z$(UX,AX]=R$ 

RETURN 

REM ###*#*####*##*##**#****#**** 
REM REPEAT 
M$=MID$(M$,4] 

IF ASC ( M $ ) =6 9 THEN M $ = M I D $ ( M $ f 5 ) 

R ECOU NT = VAL [ M $ ) 

MARKER=PSN 

RETURN 

REM #**###*##*#**#**###**#****** 

REM END REPEAT 

R ECOUNT = R ECOUNT-1 

I F RECOUNT >0 THEN PSN = MARKER 

RETURN 

#*####*####*######*##**#*#** 



REM 



FACE 



REM 

M $ = M I D $ ( M $ f 4 ) 
I F ASC(M$)=69 
N U M = V A L ( M $ ] 
Y= I NT [ ( NUM + 1 7 
IF Y=0 OR Y=360 THEN UP 
Y=45 THEN UP=-1 sAC=1 
Y = 90 THEN UP = s AC = 1 
Y=1 35 THEN UP=1 sAC=1 
THEN 
THEN 
THEN 
THEN 



THEN M$=MID$(M$ f 3] 
5 ) /45 ) *45 

-1 s AC = 



I F 
I F 
I F 
I F 
I F 
I F 
I F 



Y = 1 8 

Y = 225 

Y = 270 

Y = 31 5 



UP = 1 : AC = 
UP = 1 : A C = -1 
UP=0 ! AC=-1 
UP = -1 ■ A C = - 1 

RETURN 

REM *#**#***##** 
REM INITIALIZE 
CLS 

RANDOMIZE V A L ( R I G H T $ [ T I M E $ t 2 ) } 
REM ADJUST NEXT TWO LINES FOR 
BEST RESULTS ON YOUR SYSTEM 
B R EADTH = 80 : REM CHARACTERS ACROSS 
DEPTH=24:REM CHARACTERS DOWN 



1790 BREADTH=BREADTH-1 

1 800 D EPTH = D EPTH-3 

1810 UP = -1 : AC = : REM STARTS FACING UP 

1 820 DIM A $ { 20 ] : R EM FOR ROBOT PROGRAM 

1830 DIM Z$ ( DEPTH f BREADTH] :REM DISPLAY 

1840 T$="X"sREM PUT SYMBOL HERE YOU 

WANT TO USE FOR ROBOT'S TRAIL 

1 8 5 AX = s UX=0 

1860 REM FILL ARRAY WITH SPACES 

1870 FOR J=1 TO DEPTH 

1880 FOR K=1 TO BREADTH 

1890 Z $ { J , K ) = " 

190 NEXT K 

1910 NEXT J 

1920 RETURN 
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The Point-Duty 

Robot 



While ROBOT LOGO is interesting as far as it goes, once I had used 
it for a while, I felt that it really didn't go far enough. The program was 
developed, like the others in this book, so they would run on just 
about any computer furnished with BASIC, and therefore used an ar- 
ray to keep track of the robot's movement and current position. 

The POINT-DUTY ROBOT program that follows makes use of the 
PSET command included in the BASIC on my IBM PC to draw dots at 
a much finer resolution than the first program — 320 by 200, rather 
than 80 by 24. Using a machine-specific command like PSET, of 
course means that if a listing of the program for your computer is not 
included in this book, you may have a little more trouble than usual 
in getting the program to run. However, the results are superb, and 
the effort involved in getting the program to run is certainly worth it 
If your computer doesn't use PSET to plot a point on the screen, 
check your computer's BASIC manual for a similar command, such 
as SET, POINT, PLOT, that you can use as a replacement 

Here is the POINT-DUTY ROBOT listing, which is based on the 
ROBOT LOGO program in the previous chapter. It has not been re- 
numbered, so you should find it easy to modify the first listing into 
the second one. The RCL commands are the same, except that PRINT- 
OUT is no longer supported. It is not needed, as the program prints 
out automatically as it is running. 

Note that line 1735 in the listing that follows is an IBM-specific 
command that moves the computer into graphics mode. You will 
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need to drop or convert this line if you're running the program on a 
different computer. 



100 REM POINT-DUTY ROBOT 

110 GOSUB 1 7 30 : R EM INITIALIZE 

120 GOTO 490 

130 REM **************************** 

1 40 REM 

150 REM 

16 REM 

17 REM 

1 8 R EM 
190 REM 

2 00 R EM 
2 10 REM 
2 2 REM 
2 3 REM 
240 REM 
2 5 REM 
26 R EM 

2 7 REM 
280 REM 
290 REM 
300 REM 
31 REM 

320 DATA "*» 

330 REM **************************** 

340 REM INT U X , A X 

3 50 UX = INT(UX+.5] :AX = INT(AX+.5] 

360 RETURN 

4 8 REM **************************** 

490 REM READ PROGRAM 

5 C0UNT=C0UNT+1 
51 READ AS ( COUNT] 

520 I F A$(C0UNT)=»*" THEN 550 

5 3 IF COUNT <20 THEN 5 

5 4 REM **************************** 

550 REM EXECUTE PROGRAM 

560 P S N = : R EM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

5 8 I F PSN = 21 THEN 580 s REM END 
590 F LA G = 

6 00 M $ = A $ ( PSN ) 

610 I F M $ = « * » THEN 6 1 : R EM END 
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6 20 


N $ = LEFT $ ( Ml , 2 ) 




630 


IF N $ = " S T " THEN 


5 6 : R EM START AGAIN 


650 


I F N $ = " F " THEN 


F L A G = 1 


6 6 


I F N $ = " B A " THEN 


F LA G = 2 


670 


I F N $ = " T U 11 THEN 


F LA G = 3 


680 


I F N $ = " H " THEN 


F L A G = 4 


700 


I F N $ = " G " THEN 


F LA G = 5 


7 1 


I F N $ = 11 R A 11 THEN 


F L A G = 6 


7 20 


I F N $ = " R E " THEN 


F L A G = 7 


7 30 


I F N $ = 11 EN " THEN 


F L A G = 8 


7 40 


I F N $ = " F A " THEN 


F LA G = 9 


7 50 


ON FLAG GOSUB 7 


80,940,1000,1160,1260 


, 1 400 ,1460,1530,158 





7 6 


GOTO 570 




770 


REM $$$$$$$$$$$ 


***************** 


7 80 


REM F 


ORW ARD 


7 90 


M$=MID$(M$,4] 




800 


I F ASC ( M S ) =87 T 


HEN M S = MID $ ( M $ , 6 ] 


8 10 


F S = " F " 




820 


NUM=VAL(M$] 




8 3 


FOR E = 1 T NUM 




8 40 


I F UX <1 OR UX >D 


EPTH THEN 880 


850 


I F AX < 1 OR AX >B 


R E AD T H THEN 880 


8 6 


PRESET [ AX , UX ) 


: P S ET ( AX , UX ) 


8 8 


I F F $ = " F " THEN 


UX=UX+UP : AX=AX+AC 


8 9 


I F F$ = "B" THEN 


UX=UX-UP : AX=AX-AC 


90 


GOSUB 340 




9 1 


NEXT E 




920 


RETURN 




9 3 


REM *********** 


***************** 


940 


REM 


BACK 


950 


M S = M I D $ ( M $ , 4 ] 




9 6 


I F ASC(HJ ]=75 T 


HEN M$=MID$(M$,3) 


9 7 


F $ = " B " 




9 8 


GOTO 8 2 




9 9 


R E H ♦ ♦♦♦♦♦^N^'^'i'^ 


***************** 


10 


REM 


TURN 


10 10 


MS=MID$(MS,4) 




10 20 


I F ASC [ M 1 ] =7 8 


THEN M$=MID$[M$,3] 


10 30 


N U M = V A L (MS) 




1 40 


Y = I NT ( ( NUM+1 1 . 


2 5 ] /22 . 5 ) 


1050 


IF Y=0 OR Y=16 


THEN RETURN 


1060 


FOR J=1 TO Y 




10 6 5 


IF UP = -2 AND AC = OR UP = 2 AND A C = 2 


THEN 


AC = 1 : G OT 113 





1070 IF UP = -2 AND AC = 1 THEN AC = 2:G0T0 11 
3 

1075 IF UP=-2 AND AC=2 OR UP=0 AND AC=-2 

THEN UP = -1 5 GOTO 1 1 30 
1 8 IF UP = -1 AND AC = 2 OR UP = 1 AND A C = - 2 



THEN UP 


' = s GOTO 1130 






10 8 5 


I F 


UP = AND A C = 2 OR U P = 2 


AND A C = - 


2 


THEN 


UP = 


1 : GOTO 1130 






10 9 



I F 


UP=1 AND AC=2 THEN UP 


=2 : GOTO 1 


1 3 


10 9 5 



I F 


UP=2 AND AC=1 THEN AC 


= ! GOTO 1 


1 3 


110 


I F 


UP=2 AND AC=0 THEN AC 


= -1 s G T 


1 1 


3 










110 5 


I F 


UP = 2 AND A C = - 1 THEN AC = -2sG0T0 


1 


1 3 










1110 


I F 


UP=-1 AND AC=-2 THEN 


UP = -2s GOTO 


113 










1115 


I F 


UP=-2 AND AC=-2 THEN 


A C = - 1 sGOTO 


113 










112 


I F 


UP = -2 AND A C = - 1 THEN 


AC = 




113 


NEXT J 






1140 


RETURN 






115 


REM 


+ + + + + *************** 


******** 




116 


REM 


HOME 






117 


AX = 


I NT [ ( BREADTH+ . 5 ] /2 ] 






118 


UK = 


I NT [ ( D EPTH+ .5]/2) 






119 


UP = 


-2 : AC = : R EM FACES UP 






12 


RETURN 






1210 


REM 


******************** 


******** 




12 2 


REM 


CLEAN 






123 


GOSUB 1 870 






1240 


RETURN 






12 5 


REM 


******************** 


******** 




126 


REM 


GO X „ Y 






1270 


P = 








128 


P = P + 1 






1290 


I F 


M I D $ [ M $ , P , 1 ] = » , » THEN 


13 2 




1300 


I F 


P < LEN ( M $ ] THEN 1280 






1310 


RETURNsREM ERROR 






1320 


UX = 


VA L ( M ID $ ( M $ , 4 , P-1 ) ] 






1330 


AX = 


VA L ( R I GHT $ ( M $ , LE N ( M $ ] 


-P) ) 




1 340 


GOSUB 340 






13 5 


I F 


UX <1 OR UX >D EPT H THEN 


13 8 




136 


I F 


AC<1 OR AC >BREADTH THEN 1380 





1 


3 7 


PSET (AX 


, ux ) 








1 


3 8 


RETURN 










1 


3 9 


REM * * * * 


$ * * * * 


**************** 


* * * 


1 


40 


REM 




RANDOM 








41 


AX= I NT ( R 


ND ( 1 ] 


* B R EADTH ] 






1 


420 


UX=I NT [ R 


ND ( 1 ) 


♦DEPTH ) 






1 


430 


PSET [ AX , 


UX ) 








1 


440 


RETURN 










1 


45 


REM * * * * 


* * * $ * 


**************** 


* * * 


1 


46 


REM 




REPEAT 






1 


47 


M $ = M I D $ ( 


H $ , 4 ) 








1 


480 


I F ASC ( M 


S ) =6 9 


THEN M$=MID$(M$ 


9 


5) 


1 


490 


REC0UNT= 


VAL [ M 


$ ] 






1 


5 


MARK ER = P 


S N 








1 


51 


RETURN 










1 


5 2 


r E M * * * * 


***** 


**************** 


* 


* ♦ 


1 


5 3 


REM 


END REPEAT 






1 


540 


R EC 0UNT = 


R EC OU 


NT-1 






1 


5 5 


IF R EC U 


NT >0 


THEN PSN = M ARK ER 






1 


5 6 


RETURN 










1 


57 


rem * * * * 


***** 


**************** 


* 


$ Of. 


1 


5 8 


REM 




FACE 






1 


5 90 


M $ = M I D $ [ 


M $ , 4 ) 








1 


6 


I F ASC ( M 


$ ) =6 9 


THEN M$=MID$(M$ 


5 


3 ) 


1 


6 1 


N UM = V A L ( 


M $ ] 








1 


6 2 


Y = I NT ( [ N 


UM + 1 1 


,25]/22.5]*22.5 






1 


6 30 


IF Y = OR Y = 3 


60 THEN UP = -2 s AC 


— 





1 


6 3 5 


I F Y = 22 . 


5 THE 


N UP=-2 s AC = 1 






1 


6 40 


IF Y=45 


THEN 


UP = -2 s AC = 2 






1 


6 45 


IF Y = 6 7 . 


5 THE 


N UP=-1iAC=2 






1 


6 5 


IF Y = 90 


THEN 


UP=Q|AC=2 






1 


6 5 5 


IF Y=1 1 2 


. 5 T H 


EN UP = 1 : AC = 2 






1 


6 6 


I F Y=1 35 


THEN 


UP=2 ! AC=2 






1 


6 6 5 


IF Y=1 57 


. 5 TH 


EN UP = 2 s AC = 1 






1 


6 7 


IF Y = 1 8 


THEN 


UP = 2 5 AC = 






1 


6 7 5 


IF Y = 2 2 


. 5 TH 


EN UP = 2 : A C = - 1 






1 


6 8 


I F Y=225 


THEN 


UP = 2 s AC=-2 






1 


6 8 5 


I F Y=247 


. 5 TH 


EN UP=1 : AC=-2 






1 


6 9 


IF Y = 2 7 


THEN 


UP=0sAC=-2 






1 


6 9 5 


I F Y = 2 92 


. 5 TH 


EN UP=-1sAC=-2 






1 


7 


IF Y=31 5 


THEN 


UP = -2 g A C = - 2 






1 


7 5 


IF Y = 3 37 


. 5 TH 


EN UP=-2sAC=-1 






1 


7 1 


RETURN 










1 


7 2 


REM * * * * 


* * * * * 


**************** 


* 


* * 



1730 REM INITIALIZE 

1 7 3 5 SCREEN 1 : R EM THIS I S AN 

IBM-SPECIFIC GRAPHICS COMMAND 

1 7 40 C LS 

1 7 50 RANDOMIZE VAL( RIGHT! ( T I M E $ , 2 ) ] 

17 6 REM ADJUST NEXT TWO LINES FOR 
BEST RESULTS ON YOUR SYSTEM 

1 7 7 BREADTH = 3 20 : REM CHARACTERS ACROSS 

1780 DEPTH=200 : REM CHARACTERS DOWN 

17 90 BREADTH=BREADTH-1 

1 BOO D E P T H = D EPTH-3 

1810 UP=-2:AC=0:REM STARTS FACING UP 

1 8 20 DIM A $ ( 2 ) .-REM FOR ROBOT PROGRAM 

1920 RETURN 



There are many enjoyable programs you can write for your little 
robot to follow. As you can see from the FACE and TURN sections, 
the program supports angle changes of 17.5 degrees, rather than the 
coarser 45 degrees that was all the ROBOT LOGO could cope with. 

When you have POINT-DUTY ROBOT up and running, you might 
like to try the following programs. 

The first one is GLASS MAGNOLIA: 

GO 10 0,170 
REPEAT 5 
FORWARD 1 3 
TURN 7 2 
END REPEAT 

START AGAIN 
* 



Adding a single, additional line to that program produces 
CHURCH WINDOW: 

GO 100,170 
REPEAT 4 
FORWARD 13 
TURN 90 
END REPEAT 
TURN 22.5 
START AGAIN 
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HAMPTON COURT ROSE is an effective demonstration of the lit- 
tle robot in action: 



r» r\ inn 

G U 10 0; 


1/0 


rt r~ n r~ A T 

REPEAT 


2 


c no u a on 
rUHWAnu 


o 


TURN 99 
1 U n n C c 


E 
■ O 


c now a on 


b 


TURN 9 9 
1 U n n c c 


■ « 


c n r w a r n 


q 


TURN 22 


. 5 


FORWARD 


1 2 


TURN 22 


. 5 


FORWARD 


1 2 


TURN 22 


. 5 


FORWARD 


7 


TURN 90 




END REPEAT 



START AGAIN 



RCL continues to amaze with SPIRAL NEBULA: 



GO 1 9 


1 7 


FORWARD 


2 


TURN 22 


. 5 


FORWARD 


5 


TURN 22 


B 5 


FORWARD 


8 


TURN 22 


. 5 


FORWARD 


1 1 


TURN 22 


. 5 


FORWARD 


1 5 


TURN 22 


o 5 


FORWARD 


7 


START AGAIN 



* 
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CRAZY CRITTER decorates your screen with something sur- 
prising: 



GO 10 0,170 
REPEAT 2 
FORWARD 1 
TURN 9 
FORWARD 12 
END REPEAT 
TURN 22.5 
START AGAIN 



And this is SIGNALMAN FREUD (who worked for the Vienna Rail- 
road Company): 

GO 10 0,170 
TURN 1 35 
FORWARD 25 
REPEAT 4 
FORWARD 10 
TURN 90 
END REPEAT 
START AGAIN 



In our next program, BUBBLES, we use two REPEAT loops. Note 
these are not, and cannot be, nested, as RCL does not support nested 
loops: 

RANDOM 
REPEAT 16 
FORWARD 2 
TURN 25 
END REPEAT 
RANDOM 
REPEAT 16 
FORWARD 1 
TURN 25 
END REPEAT 
START AGAIN 
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Removing the second RANDOM line from BUBBLES turns the 
program into one I have called THE EYES ARE WATCHING YOU: 

RANDOM 
REPEAT 16 
FORWARD 2 
TURN 25 
END REPEAT 
REPEAT 1 6 
FORWARD 1 
TURN 2 5 
END REPEAT 
START AGA I N 



From that we move to HAND ME DOWN MY DANCING CANE: 

RANDOM 
FORWARD 15 
TURN 31 5 
BACK 5 
TURN 2 2.5 
START AGAIN 



And, finally, ONE-WAY STREET: 

RANDOM 
FORWARD 1 5 
TURN 3 1 5 

BACK 6 
FORWARD 6 
TURN 2 7 
FORWARD 6 
START AGAIN 
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Simulating 
Intelligence 



An enormous amount of energy is now being spent to get computers 
to behave in ways that appear intelligent. Artificial Intelligence (AI) 
research has looked into many of the simple human exhibitions of 
intelligence, such as game playing. It has produced some highly cred- 
itable results — as shown by the current generation of chess ma- 
chines. Expert systems, in which the computer uses the encoded 
expertise of human specialists to reach decisions and give advice, is 
another particularly fruitful area of AI development. Expert systems 
have been developed in a wide range of disciplines. They can now di- 
agnose certain classes of diseases, assist in chemical synthesis, and 
help in the search for mineral deposits. The scope of AI research has 
broadened over the last twenty years and now also covers such topics 
as perception (vision and speech) and the understanding of human 
(natural) languages. 

In this chapter, we'll concentrate on the game-playing side of ar- 
tificial intelligence. The simulation we'll develop plays a very good 
game of CONNECT FOUR, in which two players take turns placing 
pieces in the lowest available position in the columns on a game 
board, trying to be the first to get four of their pieces to form a line in 
any direction. 

It is interesting to note that computer programs that appear to 
display intelligence often work quite differently from the way human 
beings approach the same problems. Typically, computer systems 
analyze the tens of thousands of possible moves, ranking them hier- 
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achically, and choosing the best possible next move. Human players, 
on the other hand, appear to make their decisions almost intuitively. 
Human experts, although they may use some or all of the same raw 
data as an expert system working in the same field, do not examine 
every piece of information that could possibly be relevant before de- 
ciding which of the potential outcomes has the highest probability of 
being correct 

Similarly, in our artificial intelligence simulation program, the 
computer works out its moves in a manner that is quite alien to our 
own thinking. Despite this, it plays extremely well, and will prove a 
difficult, almost impossible, opponent to defeat It assigns a value to 
each possible move, and then evaluates each of these moves in terms 
of whether this will help win the game. It then selects the move with 
the best potential. 

When you're making your own moves, you're far more likely to 
just look at the board, check whether there is any danger of the com- 
puter completing a row of four, and if so, attempt to block it, or select 
a move that "feels" as though it could help lead you to victory. 

The lesson is clear. When writing your own artificial intelligence 
programs, look for the end result you want to achieve, rather than 
trying to emulate your own thinking processes. 

Let's look at our CONNECT FOUR program in action. You enter 
your move as a number between one and eight, and the computer au- 
tomatically places your piece (a small letter "o") at the lowest avail- 
able position in the row designated by the number you have entered. 
The computer pieces are represented by the letter "M": 



12345678 



YOUR MOVE... 

? 4 
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M o 

123 45 67 8 



YOUR MOVE 
? 6 



■ iHoHo , . 

1 2345678 



YOUR MOVE 
? 5 



a d 

Mo 

. . M o M o . . 

1 2345678 



YOUR MOVE. 
? 6 



M o M o . . 

1 2345678 



YOUR MOVE... 
? 7 



...Moo.. 

. . M o M o o . 

1 2 3 45678 

YOUR MOVE. . . 
? 7 



M . . 

....MM.. 

. . . M o o o . 
. . M o M o o . 

1 2 3 45678 



I HAVE WON 



The victory here is along the diagonal from the top of column six 
down to the bottom of column three. 

Enter this program to start your our experiments in artificial in- 
telligence: 
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10 REM CONNECT FOUR 

20 REM A . W . PEARSON 

3 CLS 

40 PRINT 

5 PRINT 

60 PRINT "CONNECT FOUR" 

7 PRINT 

80 PRINT "ENTER YOUR MOVE AS A NUMBER BE 
T W E E N " 

90 PRINT "1 AND 9, ENTER FOR A NEW GAM 

C II 

u. a B B 

1 00 FOR F = 1 T 1 : N EXT F 

1 1 DIM A$(10,10] , B ( 1 f 2 ] 

120 F L A G = 

1 30 REM CHANGE N EXT LINE FOR YOUR OWN 
CHOICE OF SYMBOLS ( C $ - C M P U T E R ] 

140 C$="M":H$="o":REM M FOR MACHINE! 

1 50 FOR F = 1 T 8 

1 60 B ( F , 1 ) =6 

1 70 NEXT F 

1 80 FOR F = 1 T 6 

1 90 FOR G = 1 T 8 
200 A $ ( F f G } = " . " 
210 NEXT G 

2 20 NEXT F 

2 3 REM ************************* 

240 R EM ACCEPT HUMAN MOVE 

250 GOSUB 430 

260 PRINT:PRINT "YOUR MOVE..." 

2 70 INPUT A 

280 I F A = THEN RUN 

290 I F A < 1 OR A > 8 THEN 270 

3 L = 

31 I F A$ [ L + 1 f A] <>" . » OR L = 6 THEN 340 

3 2 L= L + 1 

330 GOTO 31 

3 40 I F L = THEN 270 

350 A$[L,A]=H$ 

360 B ( A , 1 )=B[A,1 ) -1 

370 GOSUB 430 

380 GOSUB 560 

390 GOSUB 430 

400 GOTO 260 

410 REM ************************* 
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420 REM PRINT BOARD 

430 CLS 

440 FOR F=1 TO 6 

450 FOR G=1 TO 8 

460 PRINT A $ t F , G ) ; 

470 NEXT G 

480 PRINT 

49 NEXT F 

500 PRINT "12345678" 

510 PRINT 

520 I F F L A G = 1 THEN PRINT "I HAVE WON" : EN 
D 

530 RETURN 

540 REM ************************* 

550 REM COMPUTER MOVES 

560 PRINT "MY MOVE..." 

570 MV=0 

5 80 FOR F=1 TO 8 
590 B [ F , 2 ) =0 

600 NEXT F 

610 FOR F=1 TO 8 

620 FOR X=-1 TO 1 

630 FOR Y=-1 TO 1 

640 IF B ( F , 1 ] =0 THEN 680 

6 50 I F A$(B( F f 1 )+X, F + Y) = " " OR A $ ( B ( F r 1 ] + 
X , F + Y ] = " . " THEN 6 8 

660 I F A$(B[F,1 )+X f F+Y]=H$ THEN GOSUB 81 


670 I F A$(B ( F f 1 )+X f F+Y]=C$ THEN GOSUB 91 


6 80 N EXT Y 

6 90 NEXT X 

700 N EXT F 

710 P=0 

720 FOR F=1 TO 8 

730 I F B ( F , 2 ] > P THEN P=B ( F , 2 ] : N=F 

740 NEXT F 

750 A$(B(N,1),N)=C$ 

760 B [ N , 1 ] =B ( N p 1 ) -1 

770 N=0 

780 P=0 

790 RETURN 

800 REM ************************* 

810 M V = 2 



8 20 M1 =M V 

830 IF A$[B[F f 1)+tX*2] f F+[Y*8})=H$ THEN 
M V = M V + 1 

840 IF A$(B[ F,1 ]-X f F-Y)=H$ THEN MV=MV + 20 
850 IF MVOM1+10 THEN 870 

860 I F A $ ( B ( F , 1 ) + [X*3] ,F+(Y*3] ]=H$ THEN 
M V = M V + 1 

870 B ( F , 2 ) =B ( F f 2 ) +M V 

880 M1 =0 
890 RETURN 

900 REM ************************* 

910 MV=2 
920 M1=MV 

930 I F A$(B[F f 1 ] + (X*2],F+(Y*2] )=C$ THEN 
M V = M V + 9 

940 I F A$ [ B ( F , 1 ] -X, F-Y) =C$ THEN MV=MV + 20 



9 5 I F MVOM1+9 THEN 97 

9 60 I F A $ ( B I F , 1 ) + [X*3] ,F+(Y*3j ]=C$ THEN 
MV = MV + 2000 : F L A G = 1 
970 B ( F , 2 ] =B [ F f 2 J +MV 
98 RETURN 
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The Quevedo 
Chess Machine 



The first recorded attempt to produce a machine that would play 
chess was made in Spain in 1890. The scientist Torres y Quevedo pro- 
duced a little device that would play the end game of a king and rook 
against a king, taking the side with the rook. The machine was always 
able to force mate. 

After reading about Quevedo's machine in David Levy's fasci- 
nating book Chess and Computers (Computer Science Press, Inc., 
Potomac, Maryland; 1976), I decided to try and write a program that 
would simulate the machine's behavior. The machine can move in 
one of six possible ways. This program reports which of the six moves 
it has used on each turn. 

You'll find that the computer makes a rapid assessment of the 
situation. Here is an example of the program in action. You play the 
single king (the "$" sign). The computer's king is the "K" and its rook 
is the "R": 
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I USED MOVE 1 



ABCDEFGH 

8 8 

7 ........ 7 

6 ........ 6 

5 «R. ■ K a . . 5 

4 ........ 4 

3 $. 3 

2 2 

1 ■«■■«••■ 1 

ABCDEFGH 



>> MOVE TO ( LETTER, NO.]? A2 



I USED MOVE 1 



ABCDEFGH 

8 8 

7 . 7 

6 6 

5 R . . . K . . . 5 
4 4 

P $ P 

1 . . 1 

ABCDEFGH 



>> MOVE TO [LETTER, NO.)? B2 



I USED MOVE 1 



ABCDEFGH 

8 8 

7 7 

6 .... 6 

5 . R . . K . . , 5 

4 4 

3 . . 3 

2 .$...... 2 

1 1 

ABCDEFGH 



>> MOVE TO (LETTER, NO.)? C2 



I USED MOVE 1 



ABCDEFGH 

8 8 

7 7 

6 6 

5 . . R . K . . . 5 

4 4 

3 3 

2 . . $ 2 

1 1 

ABCDEFGH 



>> MOVE TO (LETTER, NO. )? D2 
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I USED MOVE 1 



ABCD EFGH 1 

8 8 

7 7 

6 6 

5 . . ,RK . . . 5 

4 4 

3 3 

2 . . . $ 2 

1 ........ 1 

ABCD EFGH 



>> MOVE TO ( LETTER , NO.}? E2 



I USED MOVE 2 



ABCD EFGH 

8 8 

7 7 

6 ........ 6 

5 ....K.. . 5 

4 ... R ... . 4 

3 3 

2 ....$... 2 

1 1 

ABCD EFGH 



>> MOVE TO (LETTER, NO.]? F2 
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I USED MOVE 1 



ABCDEFGH 

8 8 

7 7 

6 6 

5 K . . . 5 

A ( t ( ■ ^ * * * ^ 
3 Baasoase 3 

2 $. . 2 

1 •BB»ena« ^ 

ABCDEFGH 



>> MOVE TO (LETTER, NO.)? F1 



I USED MOVE 1 



8 
7 
6 
5 
4 
3 
2 
1 

ABCDEFGH 
>> MOVE TO (LETTER, NO.}? Q 



THANKS FOR THE GAME 



ABCDEFGH 
8 

.■•a.flflfl 7 

8 

■ ■ • ■ ■ ■ 5 

R. . 4 

••••••*• 3 

2 

$. . 1 



Here's the listing so that you can take on Senor Quevedo's ma- 
chine for yourself: 



10 REM QUEVEDO CHESS MACHINE 
20 GOSUB 1510 : REM INITIALISE 
30 GOTO 60 

40 GOSUB 1 320.-REM PRINT BOARD 
50 GOSUB 110: REM COMPUTER MOVES 
60 GOSUB 1320 

70 GOSUB 1 120 : REM ACCEPT HUMAN MOVE 
80 GOTO 40 
90 END 

100 REM ************** 

1 10 REM COMPUTER MOVES 
120 IF QUIT= 1 THEN 1080 
1 30 W1=WK 

140 REM *****t#*ft**«tt 

150 REM MOVE ONE 

160 M0VE=1 

170 KM= INT ( BK/ 10) 

1 80 RM=INT(R/10) 

1 90 IF ABS(KM-RM)>3 THEN 330 

200 A(R)=46 

210 X=INT(BK/10) : Y=INT(R/10) 

220 IF X>Y THEN 270 

230 IF A(R-10)<>46 THEN 270 

240 IF A(R-19)=BK OR A(R-21)=BK OR A(R-2 

) = BK THEN 270 

250 IF A(R-1 1 )=BK OR A(R-9)=BK THEN 270 
260 R=R~10:GOTO 300 

270 IF A(R+10)<>46 THEN A(R)=R:GOTO 330 

280 IF A(R+19)=BK OR A(R+21 )=BK OR A(R + 2 

) = BK THEN A(R)=R:G0T0 330 

290 R=R+10 

300 A(R)=ASC("R") 

310 RETURN 

320 REM ************** 

330 REM MOVE TWO 
340 M0VE=2 
350 KM= BK- 1 *KM 
360 RM=R-10»RM 

370 IF ABS(KM-RM) <2 THEN 480 
380 A ( R ) = 4 6 
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390 IF R>1 1 THEN IF ( A( R-12)=BK OR A( R-2 
) = BK OR A(R + 8)=BK) THEN A ( R ) = R : GOTO 480 
400 IF R> 1 1 THEN IF ( A(R-1 )=BK OR A(R-11 
)=BK OR A(R+9)=BK) THEN A(R)=R:GOTO 480 
410 Y=BK-10«INT(BK/10) 
420 Z=R-10«INT(R/10) 

430 IF (Z=1 OR Y>Z) AND A(R+1 )=46 THEN R 

=R+1 :GOTO 450 

440 R=R-1 

450 A ( R ) = ASC ( M R" ) 

460 RETURN 

470 REM ************** 

480 REM MOVE THREE 
490 MOVE=3 

500 WM=WK-10«INT( WK/10) 

510 BM=BK-10»INT(BK/10) 

520 IF ABS( WM-BMX3 THEN 600 

530 IF A(WK-1)<>46 OR A(WK-18)=BK OR A(W 

K-2)=BK OR A(WK+8)=BK THEN 610 

540 IF A( WK-1 1 )=BK OR A( WK+9 ) = BK OR A(WK 

-22) =BK THEN 610 

550 A(WK)=46 

560 WK=WK- 1 

570 A( WK) = ASC( "K" ) 

580 RETURN 

590 REM ************** 

600 REM MOVES FOUR, FIVE AND SIX 

610 Z=ABS( INT( BK/ 10)-INT( WK/ 10 ) ) 

620 IF Z=0 THEN 950 

630 IF 2*INT( Z/2) =Z THEN 790 

640 REM ************** 

650 REM MOVE FOUR 

660 MOVE=4 

670 A ( R ) = 4 6 

680 IF A(R-10)<>46 THEN 720 

690 IF A(R-9)=BK OR A(R-11)=BK THEN 720 

700 IF A(R-19) = BK OR A( R-2 1 ) = BK OR A( R-2 

0)=BK THEN 720 

710 R=R-10:GOTO 760 

720 IF A(R+10)<>46 THEN A(R)=R:GOTO 790 
73O IF A(R+19)=BK OR A( R + 21 ) = BK OR A( R + 2 
0)=BK THEN A(R)=ASC("R") :GOTO 790 
740 IF A( R+1 1 )=BK OR A(R+9)=BK THEN A ( R ) 
=ASC( n R") :GOTO 790 



750 
760 
770 
780 



R=R+10 

A ( R ) = ASC ( "R" ) 

RETURN 

REM *•*****«•*««** 



790 REM MOVE FIVE 
800 M0VE=5 
810 J=INT(BK/10) 
820 K=BK-10»J 
830 L=INT(WK/10) 
840 M=WK-10*L 

850 Z= 10 : IF J<L THEN Z=-10 
860 X= 1 : IF K <M THEN X = - 1 
870 A( WK) =46 
880 W1 =WK 
890 WK=WK+Z+X 
900 G= ABS( WK-BK ) 

910 IF G=1 OR G=9 OR G= 1 OR G= 1 1 THEN W 
K = W1 : A(WK)=75 :G0T0 950 
920 A ( WK ) = ASC ( "K " ) 
930 RETURN 



950 REM MOVE SIX 
960 MOVE=6 
970 A( R) =46 

980 IF R>1 1 THEN IF A(R-12)=BK OR A( R-2) 
= BK OR A( R + 8 ) = BK OR A(R-1)<>46 THEN 1070 

990 IF R>1 1 THEN IF (A(R-1 )=BK OR A( R-1 1 
)=BK OR A(R+9)=BK) THEN 1070 
1000 Y=BK-10»INT(BK/10) 
1010 Z=R-10»INT(R/10) 

1020 IF ( Z= 1 OR Y>Z) AND A( R+1 ) =46 THEN 

R=R+1:G0T0 1040 

1030 R=R-1 

1 040 A ( R ) = ASC ( " R " ) 

1050 RETURN 

1060 REM »******«**««*» 

1070 GOSUB 1320 
1080 PRINT: PRINT 

1090 PRINT "I CONCEDE TO THE MASTER" 
1100 END 

1110 REM ***•«***«**«*»*»* 

1 1 20 REM ACCEPT HUMAN MOVE 
1 1 30 REM ENTER «Q» TO QUIT 




1 140 M0VE=0 

1150 PRINT ">> MOVE TO ( LETTER , NO.)"; 

1160 INPUT G$ 

1 170 IF G$= "Q" THEN 1280 

1 180 IF LEN(G$) <>2 THEN 1160 

1 190 Z=ASC(G$) 

1200 IF Z<65 OR Z>72 THEN 1160 

1210 X=VAL(RIGHT$(G$,1)) 

1220 IF X<1 OR X>8 THEN 1 160 

1230 A(BK)=46 

1240 BK=10*( Z-64)+X 

1250 IF A ( BK ).= ASC ( " R " ) THEN QUIT=1 

1260 A(BK)=ASC( "$") 

1 270 RETURN 

1280 PRINT: PRINT 

1290 PRINT "THANKS FOR THE GAME" 

1 300 END 

1310 REM *********** 

1 320 REM PRINT BOARD 

1330 CLS 

1340 PRINT: PRINT 

1 350 IF MOVE>0 THEN PRINT "I USED MOVE" 
OVE 

1 360 IF MOVE=0 THEN PRINT 

1370 PRINT : PRINT 

1380 PRINT TAB( 11); "ABCDEFGH" 

1390 FOR J=8 TO 1 STEP -1 

1400 PRINT TAB( 8 ) ; J; 

1410 FOR K= 10 TO 80 STEP 10 

1420 PRINT CHR$( A( J+K) ) ; 

1430 NEXT K 

1440 PRINT J 

1450 NEXT J 

1460 PRINT 

1470 PRINT TAB( 11); "ABCDEFGH" 

1480 PRINT : PRINT 

1490 RETURN 

1500 REM ************** 

1510 REM INITIALISATION 

1520 CLS 

1530 RANDOMIZE VAL( R IGHT$ ( TIME$ , 2 ) ) 

1540 MOVE=0 

1550 QUIT=0 

1560 DIM A( 130) 



1570 FOR J=10 TO 80 STEP 10 

1580 FOR K=1 TO 8 

1 590 A( J+K) =46 : REM ASCII OF » . " 

1600 NEXT K 

1610 NEXT J 

1620 REM *» PLACE PIECES *« 

1630 REM BLACK KING - HUMAN 

1640 BK = INT(RND( 1 ) * 3 ) + 1 

1650 BK=10*BK+BK+INT(RND( 1 )«5) 

1660 A(BK)=ASC( "$") 

1670 REM WHITE KING - COMPUTER 

1 680 WK=INT(RND( 1 ) * 4 ) +4 

1690 WK=10*WK+WK+INT( RND( 1 ) *2) 

1700 IF WK=BK THEN 1680 

1710 A( WK ) = ASC ( "K " ) 

1720 REM WHITE ROOK - COMPUTER 

1730 R=INT(RND( 1 )*4)+4 

1740 R=10«R+R+INT(RND( 1 )«2) 

1750 IF R=WK OR R=BK THEN 1730 

1760 IF ABS(R-BK)<12 THEN 1730 

1770 A(R)=ASC( "R") 

1780 RETURN 
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Into the 
Political Arena 



As we discussed earlier, computer programs can also be used to sim- 
ulate any process where the links between elements of the process 
can be expressed as one or more mathematical relationships. The po- 
litical simulation in this chapter, WASHINGTON, D.C., shows this 
very clearly. It's governed by mathematical relationships that repre- 
sent a grossly over-simplified version of the American economy. 

You take the role of the hapless occupant of the Oval Office, run- 
ning — as you'll soon see — an economy that is somewhat out of kilter. 
To retain your popular support (and the Presidency) you have to try 
to keep the whole thing together. You need to do your best to improve 
the standard of living, keep inflation and unemployment down, stim- 
ulate private investment, and generally maintain an acceptable 
growth in the economy, all at same time. You'll discover that a Pres- 
ident's lot is not a happy one. 

The simulation begins with a report on the state of the nation: 

PRESIDENT HARTNELL: 

YOUR ADMINISTRATION HAS BEEN I N 
POWER FOR .25 YEARS 



STATE OF THE NAT I N 



POPULATION 3000B19 

NO. UNEMPLOYED 300000 9 % 
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CURRENT WAGES $ 100 INFLATION 5 % 

GOVT. EXPENDITURE LAST QTR . $M 118 

UNEMPLOYMENT COST $ M 

INCOME FROM TAXES $ M 

BUDGET SURPLUS(+]/DEFICIT(-) $M 

GROSS DOMESTIC PRODUCT $M 440 



PUBLIC INVESTMENT Q 1 $ M 236 



You start each run with a population of around 3,000,000 and an 
unemployment rate of about 10%. You are then asked to make some 
snap judgments on levels of government spending, cost of wages, and 
on your administration's immigration policy: 

OK , PRESID ENT HARTNELL . . . 

ENTER GOVERNMENT SPENDING $ M ? 102 

ENTER COST F WAGES $ M ? 4 1 

IS YOUR ADM I NI STRATI ON I N FAVOR OF 

IMMIGRATION THIS QUARTER ( Y/ N ] ? 

OK ... N 

At the end of my second quarter in office, I found that while I had 
somehow kept inflation and unemployment under control, I was sud- 
denly faced with a budget deficit of over $69 million! On the positive 
side, public investment (and therefore, I hoped, public confidence) 
was on the increase, up from $236 million at the end of the first 
quarter to more than $257 million at this point I decide to increase 
spending slightly: 

PRESIDENT HARTNELL : 

YOUR ADMINISTRATION HAS BEEN I N 
POWER FOR .5 YEARS 



STATE OF THE NAT I N 



P0PULATI ON 3001 63B 

NO. UNEMPLOYED 287879 9 % 

CURRENT WAGES $ 41 I NF LATI ON 9 % 

GOVT. EXPEND ITURE LAST QTR . $M 102 

UNEMPLOYMENT COST $M 11.8 

INCOME FROM TAX ES $ M 44.4 

BUDGET SURPLUS(+]/DEFICIT(-] $M-69.4 

GROSS DOMESTIC PRODUCT $M 449.2 
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PUBLIC INVESTMENT Q 2 $M 275.7 



OK, PRESIDENT HARTNELL . . . 

ENTER GOVERNMENT SPENDING $M? 107 

ENTER COST OF WAGES $M? 43 

I also decide to let a few of the world's tired and hungry masses 
into the land of milk and budget deficits: 

IS YOUR ADMINISTRATION IN FAVOR OF 
IMMIGRATION THIS QUARTER (Y/N)? 

OK ... Y 

HOW MANY IMMI GRANTS WILL YOU ALLOW 
INTO THE US? 

? 100 

At the end of my first year, the deficit has grown to $216 million, 
and standard of living has increased by 12%: 

YOUR A D M I N I STRATI ON HAS BEEN I N 
POWER FOR 1 YEARS 



STATE F THE N A T I ON 



POPULATION 3004277 

N . UNEMPLOYED 2 7 2 3 9 9 % 

CURRENT WAGES $ 4 6 INFLATION 9 % 

GOVT. EXPENDITURE LAST QT R . $ M 111 

UNEMPLOYM ENT COST $M 12.5 

INCOME FROM TAXES $ M 50.2 

BUDGET S UR P LUS ( + ) /D EF I C I T ( - ] SM-216.7 
GROSS DOMESTIC PRODUCT $M 486.2 
CHANGE I N LIVING STANDARD 1 2 % 



PUBLIC INVESTMENT Q 4 $ M 3 6 4 .4 



OK, PRESIDENT HARTNELL . . . 

ENTER GOVERNMENT SPENDING $M ? 1 20 

ENTER COST OF WAGES $M ? 6 5 

I S YOUR ADMINISTRATION I N FAVOR OF 

IMMI GRATI ON THIS QUARTER (Y/N)? 

OK ... N 
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I stumble on, narrowly avoiding disasters each time I turn my 
head. Things start getting really hairy toward the end of my second 
year in office: 

PRESIDENT HARTNELL : 

YOUR ADMI NI STRATI ON HAS BEEN I N 
POWER FOR 1.75 YEARS 



STATE OF THE NATION 



POPULATI ON 3008238 

NO. UNEMPLOYED 3 7 7 3 2 4 12 % 

CURRENT WAGES $ 66 INFLATION 12 % 

GOVT. EXPENDITURE LAST QTR . $M 125 

UNEMPLOYMENT COST $ M 24.9 

INCOME FROM TAXES $M 69.4 

BUDGET SURPLUS[+]/DEFICIT(-] SM-436. 

GROSS DOMESTIC PRODUCT $M 866 

CHANGE I N LIVING STANDARD 13 % 



PUBLIC I NVESTMENT 1 Q 3 $M 243.2 

OK, PRESIDENT HARTNELL. 

ENTER GOVERNMENT SPENDING $ M ? 126 

ENTER COST OF WAGES $M ? 67 

The outcome is inevitable. My time is up: 

PRESIDENT HARTNELL, YOUR 
ADMINISTRATION'S POOR ECONOMIC 
PERFORMANCE HAS LED TO AN UNACCEPTABLE 
RISE I N UNEMPLOYMENT 

AMONG OTHER THINGS. . . 



THE LACK OF CONFIDENCE IN YOUR 
ADMINISTRATION IS SO BAD THERE ARE 
CALLS FOR YOU TO RESIGN. ..YOU STEP 
ASIDE TO ALLOW THE VICE-PRESIDENT TO 
OCCUPY THE OVAL OFFI CE 



YOU WERE PRESIDENT FOR 2.25 YEARS 
DURING YOUR TERM OF OFFICE, THE 
POPULATION ROSE BY 9059 



83 



THE UNEMPLOYMENT RATE BECAME 17 % 
AND THE INFLATION RATE BECAME 17.4 % 
STANDARD OF LIVING CHANGED BY 17 % 
AND THE BUDGET S U R P L U S / D E F I C I T 
WAS SM- 5 9 7 . 5 



This is a program you may well enjoy modifying. For example, 
changing the income you get from taxes, will alter the simulation in 
a radical way. You can also fiddle with the thresholds at which the 
public starts waving their fists. 

Line 50 governs the increase in population from quarter to 
quarter. A steeper increase here will make it harder to keep the lid on 
unemployment 

I've been pretty generous with my use of REM statements in this 
program, so you should find it relatively easy to track down the var- 
iables you'd like to modify. Here are the major ones, as listed in the 
initialization section of the program: 



1150 REM tit************************* 

1160 REM INITIALIZATION 

117 C LS 

1180 RANDOMIZE VALf RIGHTS (TIHE$ , 2 ) ) 

1190 M L = 1 0*1 000 

1 200 P = 3 * M L : REM P0PULATI ON 

1210 U = P/1 : R EM UNEMPLOYMENT 

1 220 I V = 2 3 6 : REM I N VE STM ENT 

1 230 GE = 1 1 8 : R EM GOVERNMENT EXPEND ITURE 

1 240 GU = : REM COST OF UNEMPLOYMENT 

1250 GI=0 : REM INCOME FROM TAXES 

1 26 WN = 1 : R EM NEW WAGES 

1 27 W0 = 1 00 : R EM OLD WAGES 

1 280 I P = 5 : REM INFLATION PERCENT 

1290 GDP=440 : REM GROSS DOMESTIC PRODUCT 

1 30 AGD P = 440 : R EM BASE YEAR GDP 

1310 R GDP = 440 : R EM REAL GDP 

1320 CN=354: REM ECONOMIC CONSTANT 
( USED THROUGHOUT SIMULATI ON) 

1 330 Z = 1 : GAM E = : F LA G = Q 

1 340 Y = : R EM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 

1 36 INPUT A $ 

1 370 RETURN 
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The part of the program that does all the calculating is also fairly 
easy to unravel, once you know the principal variables: 

490 REM *************************** 

500 REM CALCULATIONS 

510 CN=CN+ ( CN*IP/1 00 ] 

520 U=P*[GE+IV)/(CN*10)+P*(IP/1000) 

530 GU = U*WN/ML : R EM UNEMPLOYMENT COST 

540 GI = ( ( (P-UJ*WN*.4]/MLJ : R E M INCOME 

FROM TAXES 

550 BD=BD+GI-GU-GE: REM BUDGET DEFICIT 

560 AGDP = AGDP*M + [IP/100J J 

570 GDP=GE+IV+( (P-U)*WN/ML] 

5 8 RGDP=GDP*440/AGDP 

590 IP=((GE+IV1/CN*.1+(WN/WOJ/100}*100 

BOO I V= ( CN*67 )/ ( IP*IPJ 

61 W0=WN 

620 Z = Z + 1 : I F 2 >4 THEN Z = 1 : Y=Y + 1 

6 30 RETURN 

6 40 REM *************************** 

650 REM CHECK BUDGET DEFICIT 

6 60 I F BD >-1 000 THEN RETURN 

6 7 GAM E = 1 

6 B0 F L A G = 1 

6 90 RETURN 

70 REM *************************** 

7 1 R EM CHECK STANDARD OF LIVING 

7 20 I F Y < . 7 5 THEN RETURN - 

7 30 I F INT((2*([RGDP/AGDPJ*100)-100J/3J> 

-1 5 THEN RETURN 

7 40 GAM E = 1 

750 F L A G = 2 

760 R ETURN 

770 REM *************************** 

780 REM CHECK INFLATION RATE 

7 90 I F IP <1 5 THEN RETURN 

BOO GAM E = 1 

81 F L A G = 3 

820 RETURN 

830 REM *************************** 

840 REM CHECK UNEMPLOYMENT 

850 IF I NT ( U*1 00/P ] <1 5 THEN RETURN 
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860 G AM E = 1 

870 F L A G = 4 

880 RETURN 

8 90 REM ** 



Here is the complete listing of the WASHINGTON, D.C. program: 



1 
SO 
30 
40 

5 

6 

7 

8 
90 
100 
1 1 
1 20 
1 30 
1 40 
1 50 
16 
1 70 
180 
I N 

1 90 



D.C. 

INITIALIZE 



REM WASHINGTON 

GOSUB 1 1 6 REM 

REM *************************** 

REM MAJOR CYCLE 

P=INT(P+(P*273/MLl ] 

GOSUB 1 60 : REM PRINTOUT 

GOSUB 51 : R EM CALCULATE 

REM NOW CHECK END GAME 

GOSUB 71 ! R EM STANDARD OF LIVING 
GOSUB 7 8 : R EM I NFLATI ON RATE 
GOSUB 8 40 : R EM UNEMPLOYMENT 
I F GAM E = 1 THEN CLS : GOTO 8 90 
GOTO 50 
REM * 

NT OUT 



PR 



REM 
CLS 
PRINT 
PRINT 



PRINT 



200 PRINT 
ii 

21 PRINT 

ii 



220 PRI 


NT 


230 PRI 


NT 


1 00*U/P 


I "% 


2 40 PRI 


NT 


" I N T ( I P 


] »% 


250 PRI 


NT 


M " G E 




2 6 PRI 


NT 


U J/1 




270 PRI 


NT 


0J/10 





PRESID ENT " | A $ p " i " 
YOUR ADMI NI STRATI ON HAS BEEN 
POWER FOR" Y + Z/ 4" YEARS" 



STATE OF THE NATI ON 



POPULATION"? 

NO . UNEMPLOYED "INTtUl" " I N T ( 

CURRENT WAGES $ 11 W " I NF LATI ON 
GOVT . EXPEND ITURE LAST QTR . $ 

UNEMPLOYM ENT COST $ M " I N T ( 1 * G 
INCOME FROM TAXES $M"INT(GI*1 



280 PRINT "BUDGET SURPLUS(+]/DEFICIT[-J 
$M»INT(BD*10]/10 

2 90 PRINT "GROSS DOMESTIC PRODUCT $ M " I N T 
{ GDP*1 ] /1 

300 I F Y + Z/4> . 5 THEN PRINT "CHANGE I N LI 
VI NG STANDARD" INT ( [ 2* ( (RGDP/AGDP)*100)-1 

] / 3 } " % « 

31 PRINT " 

ii 

320 PRINT "PUBLIC INVESTMENT " Y" Q»Z n $M" IN 
T [ I V * 1 0]/10 

3 30 PRINT » 

ii 

340 PRINT "OK, PRESIDENT "; A $;"... » 

350 INPUT "ENTER GOVERNMENT SPENDING $ M " 

1GE 

360 INPUT "ENTER COST OF WAGES $ M " ; W N 
370 PRINT "IS YOUR ADMINISTRATION I N FA V 
OR OF " 

380 PRINT "IMMIGRATION THIS QUARTER ( Y/N 

1 ?" 

3 90 X $ = I NK EY $ 

400 I F X $ <> " Y " AND X $ < > " N " THEN 390 
410 PRINT TAB [ 20 ) ; " OK . . . » ;X$ 
420 FOR H = 1 T 1 00 : NEXT H 
430 I F X $ <> " Y " THEN RETURN 

440 PRINT "HOW MANY IMMIGRANTS WILL YOU 

ALLOW INTO THE US?" 

450 INPUT M 

460 I F M < THEN 450 

470 P=P+M 

480 RETURN 

490 REM *************************** 
500 REM CALCULATIONS 
51 CN = CN+ ( C N* I P/1 ] 

520 U=P*(GE+IV)/(CN*10)+P*(IP/1000) 
530 GU = U*WN/M L : R EM UN EMP LOYM ENT COST 
540 GI=(((P-U)*WN*.4)/ML):REM INCOME 

FROM TAXES 
550 BD=BD+GI-GU-GE : REM BUDGET DEFICIT 
560 AGDP = AGDP*[1 + [IP/100] J 
570 GDP=GE+IV+[IP-U)*WN/ML) 
5 8 R GD P = GD P * 440/A GDP 

5 90 IP=((GE+IVJ/CN*.1+{WN/W0)/100)*100 



600 IV=(CN*67)/(IP*IP] 

610 W0=WN 

620 Z=Z+1 : I F Z>4 THEN Z=1 : Y=Y+1 

6 30 RETURN 

6 40 REM *************************** 

650 REM CHECK BUDGET DEFICIT 

6 60 I F BD >-1 000 THEN RETURN 

6 7 G AM E = 1 
6B0 F LA G = 1 
690 RETURN 

700 REM *************************** 

7 1 REM CHECK STANDARD OF LIVING 

7 20 I F Y < . 7 5 THEN RETURN 

7 30 I F INTU2*[(RGDP/AGDP}*100)-100)/3)> 

-1 5 THEN RETURN 

7 40 GAM E = 1 

750 FLAG=2 

760 R ET URN 

770 REM *************************** 

7 80 REM CHECK I NF LATI ON RATE 

7 90 I F I P <1 5 THEN RETURN 
BOO GAM E = 1 

810 F L A G = 3 

820 RETURN 

830 REM *************************** 

840 REM CHECK UNEMPLOYMENT 

850 I F I NT ( U*1 0/P ] <1 5 THEN RETURN 

8 6 G AM E = 1 
870 F L A G = 4 
880 R ETURN 

8 90 R EM *************************** 

900 REM END OF THE GAME 

91 PRINT "PRESIDENT " ; A $ ; " , YOUR" 

9 20 PRINT "ADMINISTRATION'S POOR ECONOMI 
C " 

930 PRINT "PERFORMANCE HAS LED T AN UNA 
CCEPTABLE" 

940 I F F LA G = 1 THEN PRINT "BUDGET DEFICIT 
ii 

950 I F F L A G = 2 THEN PRINT "DROP I N THE ST 
ANDARD OF LIVING" 

960 I F F L A G = 3 THEN PRINT "RISE I N THE I N 
F LATI ON RATE" 



970 I F F L A G = 4 THEN PRINT "RISE IN UNEMPL 
Y M E N T " 

980 PRINT " AMONG OTHER THINGS. . 



990 PRINT 

ii 



1000 


PRI 


NT 


UR " 






10 10 


PRI 


NT 


RE ARE" 




1 020 


PRI 


NT 


U STEP" 




1 030 


PRI 


NT 


ID ENT 


TO 


it 


1 40 


PRI 


NT 


£ It 






10 50 


FOR 


H 


1060 


PRI 


NT 



"THE LACK OF CONFIDENCE I N YO 
"ADMINISTRATION I S SO BAD THE 
"CALLS FOR YOU TO RESI GN . . . YO 
"ASIDE TO ALLOW THE VICE-PRES 
" OCCUPY THE OVAL OFFI C 

= 1 TO 1 000 : NEXT H 



ii 

1 070 PRINT "YOU WERE PRESIDENT F R " Y + ( Z * 
.25) "YEARS" 

1080 PRINT "DURING YOUR TERM OF OFFICE, 

THE" 

1090 PRINT "POPULATION ROSE BY"P-3*ML 

1100 PRINT "THE UNEMPLOYMENT RATE B ECAM E 
"INT(U*1000/P]/10"%" 

1110 PRINT "AND THE INFLATION RATE B ECAM 
E"INT(10*IP)/10"%" 

1120 PRINT "STANDARD OF LIVING CHANGED B 
Y"INT((2*((RGDP/AGDP)*100j-100j/3]"%" 

1130 PRINT "AND THE BUDGET SURPLUS/ DEFIC 

IT WAS $M"INT(10*BD)/10 

1 1 40 END 

1150 REM *************************** 

1160 REM INITIALIZATION 

1170 CLS 

1180 RAND OMIZE V A L ( R I G H T $ ( T I M E $ , 2 ) ] 

1 1 90 ML=1 000*1 000 

1200 P=3*ML: REM POPULATI ON 

1210 U=P/1 : REM UNEMPLOYMENT 

1 220 I V = 2 3 6 : REM INVESTMENT 

1 230 GE = 1 1 8 : R EM GOVERNMENT EXPENDITURE 

1 240 GU=0 : REM COST OF UNEMPLOYMENT 



1 250 GI=0 : REM INCOME FROM TAXES 

1 260 WN = 1 00 : R EM NEW WAGES 

1 27 W0 = 1 00 : R EM OLD WAGES 

1 280 I P = 5 : REM I NF LATI ON PERCENT 

1290 GDP=440sREM GROSS DOMESTIC PRODUCT 

1300 AGDP=440 : REM BASE YEAR GDP 

1310 R GDP = 440 : R EM REAL GDP 

1320 CN=354: REM ECONOMIC CONSTANT 
[USED THROUGHOUT SIM ULATI ON J 

1330 Z=1 s GAME=0 s FLAG=0 

1 340 Y = s REM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 

1360 INPUT A $ 

1370 RETURN 
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Playing the 

Stock Market 



The numbers that a computer manipulates can represent anything — 
cloud density, intricate subatomic reactions within a complex chem- 
ical experiment, or the number of warriors taking part in a Roman 
raid on an English village. When computers were first used in busi- 
ness, the numbers generally stood for more mundane things like sta- 
tistics, sales, and dollars. In the simulation in this chapter, we'll stick 
to the extremely important, if mundane, subject of money. 

You play a broker dealing in a small market of five companies. 
You start the simulation with $15,000 and are asked to enter a finan- 
cial target for the run: 

ENTER YOUR GOAL FOR THIS SIMULATION, 

$16,000 TO $100,000 
? 250000 
TOO HIGH! 

ENTER YOUR GOAL FOR THIS SIMULATION, 
$16,000 TO $100,000 

? 16000 
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Once you've done that, the starting state of the market is re- 
vealed: 



DAY 1 YOUR GOAL IS $ 16000 



COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE [%): 

23 59 28 59 41 

CHANCE OF DECREASE {%) : 

31 26 55 8 17 

CURRENT VALUE PER SHARE: 
$ 1.49 $ 1 .99 $ 2.49 $ 2.99 $ 3.49 
NO. OF SHARES HELD: 

2000 1500 1200 1000 800 
BANK $ 265 TOTAL WORTH $ 15000 



DO YOU WANT TO SELL ANY SHARES (Y/N) ? 



One cycle of buying and/or selling represents a day of trading. 
Each day, you are told the chance of each share rising or falling in 
price. Based on that information, you can decide what to buy or sell: 



DAY 1 YOUR GOAL IS $ 16000 



COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE {%): 

23 59 28 59 41 

CHANCE OF DECREASE {%) i 

31 26 55 8 17 

CURRENT VALUE PER SHARE: 
$ 1.49 $ 1 .99 $ 2.49 $ 2.99 $ 3.49 
NO. OF SHARES HELD: 

2000 1500 1200 1000 800 
BANK $ 265 TOTAL WORTH $ 15000 



WHICH ONES TO SELL? OK 1 
HOW MANY OF 1 TO SELL? 3000 
YOU DON'T HAVE THAT MANY I 
? 1500 
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DAY 1 YOUR GOAL 


IS $ 


16000 


COMPANY NUMBER: 






1 2 3 


4 


5 


CHANCE OF INCREASE [%) : 






23 59 28 


59 


41 


CHANCE OF DECREASE [%) : 






31 26 55 


8 


17 



CURRENT VALUE PER SHARE: 

$ 1.49 $ 1.99 $ 2.49 $ 2.99 $ 3.49 

NO. OF SHARES HELD: 

500 1500 1200 1000 800 
BANK $ 2500 TOTAL WORTH $ 15000 



WHICH COMPANY TO BUY? OK 4 
HOW MANY OF 4 TO BUY? 750 



You can only sell and buy shares once each day, so you must 
choose wisely. After you've made your decisions, the computer will 
tell you how you rate as a stockbroker. Some of the assessments, as 
I'm sure you'll discover, can be quite harsh: 



DAY 2 YOUR GOAL IS $ 16000 



COMPANY NUMBER: 

1 2 3 4 5 

CHANCE OF INCREASE (%]: 

51 11 43 32 35 

CHANCE OF DECREASE (%): 

49 43 8 49 46 

CURRENT VALUE PER SHARE: 
$ 1.49 $ 2.1 $ 2.36 $ 3.16 $ 3.49 
NO. OF SHARES HELD: 

600 1500 1200 1750 800 
BANK $ 108 TOTAL WORTH S 15329.06 



YOUR RATING AFTER THAT ROUND OF 
TRADING IS 'BAD* 

<PRESS SPACEBAR TO CONTINUE > 
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However, if you persevere, you may well prosper in the end. Just 
don't allow yourself to be discouraged by assessments such as 
"hopeless": 



DAY 8 YOUR GOAL IS $ 16000 



COMPANY NUMBER: 

1 2 3 

CHANCE OF INCREASE [%) : 

18 72 89 
CHANCE OF DECREASE [%) : 

4 25 1 

CURRENT VALUE PER SHARE 
$ 1.53 $ 2.31 $ 2.57 $ 2.69 $ 3.68 
NO. OF SHARES HELD: 

2100 400 1200 1750 800 
BANK $ 191 TOTAL WORTH $-15103.32 



WHICH ONES TO SELL? OK 1 
HOW MANY OF 1 TO SELL? 2100 



4 5 
24 32 
55 50 



DAY 11 YOUR GOAL IS $ 16000 



COMPANY NUMBER: 

12 3 
CHANCE OF INCREASE [%) : 

87 30 18 
CHANCE OF DECREASE [%) : 

4 50 51 

CURRENT VALUE PER SHARE 
$ 1.58 $ 2.44 $ 2.69 $ 2.65 $ 3.68 
NO. OF SHARES HELD: 

600 2400 1750 800 

BANK $ 355 TOTAL WORTH $ 15352.79 



4 5 
27 30 
44 52 



YOUR RATING AFTER THAT ROUND OF 
TRADING IS 'HOPELESS' 

<PRESS SPACEBAR TO CONTINUE > 
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DAY 17 



YOUR GOAL IS $ 16000 



COMPANY NUMBERS 

1 2 3 4 5 

CHANCE OF INCREASE [%) i 

47 65 38 8 47 

CHANCE Of DECREASE [%) s 

32 7 44 25 40 

CURRENT VALUE PER SHARE: 
$ 1.78 $ 2.5 $ 2.61 $ 2.98 $ 3.83 
NO. OF SHARES HELD: 

2900 1750 800 

BANK $ 229 TOTAL WORTH $ 16109.47 



YOU'VE HIT YOUR FINANCIAL GOAL I 



The STOCK MARKET listing is presented in the following chap- 
ter. 
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T. 
ne 

STOCK MARKET 

1*3 wl I lU 



When you're ready to challenge the best brains of Wall Street, enter 
and ran the following listing. Just don't be too ambitious with your 
financial goals, or you'll never attain financial security. 



10 REM STOCK MARKET 
20 C LS 

3 RAND OMIZE VA L ( R I GHT $ ( T I M E $ , 2 ] ) 
40 DIM S[5),N(5),Pl5),D[5) 

5 S { 1 ) =1 . 49 : S ( 2 ) =1 . 9 9 : S ( 3 ) = 2 . 4 9 : S ( 4 ) = 2 . 
99 : S ( 5 ) =3 . 49 

60 N(1)=2000:N(2)=1500:N(3)=1200:N(4)=10 
00 : N ( 5 ) =80 

70 BB=2B5gTV=15000iQQ=15000:DAY=1 

80 PRI NT : PRI NT "ENTER YOUR GOAL FOR THIS 

SIMULATION, » 
90 PRINT TAB(B) $16,000 TO $1 , 00 " 
1 00 INPUT GOAL 

1 1 IF G0AK1 6000 THEN PRINT "TOO LOW I " : 
GOTO 80 

120 I F G0AL>1 00*1 000 THEN PRINT "TOO HI G 
H ! " : GOTO B 



96 



130 R EM ************************ 

1 40 REM MAJOR LOOP 

150 FOR C=1 TO 5 

1 60 R EM ADJUST THE 55 I N NEXT LINE TO 
MODIFY GAME ; BO VERY HARD f 30 VERY EASY 

1 70 D ( C ) =1 NT ( R ND ( 1 ) *55 ) +1 

1 80 P [ C ] =1 NT ( RND ( 1 ] * ( 1 - D ( C ) )) + 1 
190 N EXT C 

2 GOSUB 2 3 
21 GOTO 46 

220 REM ************************ 

2 3 REM PR I NT OUT 

240 CLS 

250 PRINT " ■ 



26 PRINT " DAY "DAY" YOUR GOAL I S 

$ " G OA L 

270 PRINT " 



280 PRINT "COMPANY NUMBER:" 

290 PRINT TAB [ 2 J ; 1 ; TAB [ 9 ) p 2 ; TAB [ 1 6 ) ; 3 ? TA 
B [ 25 ] ; 4 ; TAB [ 3 2 ] ; 5 

300 PRINT "CHANCE OF INCREASE [%) :" 

31 PRINT TAB { 2 ] ; P { 1 J ; TAB { 9 ) ; P ( 2 ) | TAB I 1 6 

);P(3);TAB[25);P[4];TAB(32];P(5] 

320 PRINT "CHANCE OF DECREASE [%)%" 

3 30 PRINT TAB [ 2 J | D ( 1 ] p TAB ( 9 ) | D [ 2 ) 1 TAB ( 1 6 

];D(3];TAB[25);D(4];TAB(32);D(5) 

340 PRINT "CURRENT VALUE PER SHARE:" 

350 PRINT " $ " ; I NT ( S ( 1 ] * 1 ] / 1 ; T A B [ 8 ) ; " 

$" ;INT{S(2)*100)/100; 

360 PRINT TAB(15);"$";INT(S[3)*100]/100; 

TAB[23);"$";INT(S{4)*100]/100; 

37 PRI NT TAB ( 30 ) ; " $ " ; I NT [ S [ 5 ) *1 00 ] /1 00 

380 PRINT "NO. OF SHARES HELD:" 

3 90 PRINT TAB t 2 ) | N { 1 ) ; TAB ( 9 ] ; N ( 2 ) ; TAB ( 1 6 

J J N ( 3 ] ; TAB ( 24] ; N { 4) ; TAB ( 31 ) ; N ( 5 ] 

40 PRINT "BANK $ " I N T ( B B ] " TOTAL WORTH $ 
"TV 

41 PRINT » 



420 I F T V >G OA L THEN PRINT "YOU'VE HIT Y 
UR FINANCIAL GOALI":END 
430 RETURN 



440 






450 


R EM 




460 


PRINT 


"DO 


S { Y/N] ?» 




470 


A $ = I N K 


EY $ 


480 


I F A $ < 


> 11 Y " 


490 


IF A $ = 


« N « 


5 00 


60SUB 


230 


51 


PRINT 


"WHI 


520 


A $ = I N K 


EY $ 


530 


IF A $ < 


it <j n 


5 40 


C=VAL ( 


A$ ) 


550 


PRINT 


!i 


5 6 


PRINT 


"HOW 


570 


I NPUT 


N 


580 


I F N > N 


m 



** SELL ** 
YOU WANT T SELL ANY SHARE 



AND A $ <> " N 11 THEN 470 
THEN 690 

CH ONES T SELL?"; 
OR A $ > " 5 11 THEN 520 
OK " C 

MANY F " C " T SELL"; 

THEN PRINT "YOU DON'T HAVE 
THAT MANY!":GOTO 57 
590 REM ************************ 
600 R EM AD JUST FIGURES AFTER SALE 
610 BB = B B + S ( C ) * N : R EM ADD VALUE T BANK 
620 N ( C ) =N ( C ] -N : R EM SUBTRACT N . SOLD 
6 3 T V = : R EM SET TOTAL WORTH T ZERO 
6 40 R EM NOW DETERMINE CURRENT WORTH 
6 5 FOR C = 1 T 5 
660 TV=T V+N ( C ) *S [ C ) 
670 N EXT C 

680 T V = T V + B B : REM ADD I N BANK BALANCE 

6 9 GOSUB 2 3 

700 REM ************************ 
71 REM ** BUY ** 

7 20 PRINT "DO YOU WANT TO BUY ANY SHARES 
{ Y / N ] ? " 



730 


A $ = I NK 


EY $ 




7 40 


I F A $ < 


> " Y " AND A $ <> " N " THEN 


7 30 


7 50 


I F A$ = 


" N " THEN 8 9 




760 


GOSUB 


230 




770 


PRINT 


"WHICH COMPANY TO BUY ? 


" ; 


7 80 


A $ = I N K 


EY $ 




7 90 


I F A $ < 


"1 " OR A $ > " 5 " THEN 7 8 




800 


C=VAL { 


A$) 




81 


PRINT 


" OK " C 




8 20 


PRINT 


"HOW MANY F " C » T BUY" 


; 


8 30 


INPUT 


N 




840 


I F N*S 


[C] >BB THEN PRINT "YOU 


DON 



T H 



AVE ENOUGH MONEY!" :GOTO 830 

850 REM ************************ 

860 REM ADJUST FIGURES AFTER BUY 
870 B B = B B - S ( C ) * N 
8 8 N ( C ) = N ( C ] + N 

890 TV=0 

900 FOR C = 1 T 5 
91 T V = T V + N ( C ] * S ( C ) 
920 N EXT C 
9 30 T V=T V+BB 

9 40 G OS U B 2 3 

950 REM ************************ 
960 REM MODIFY ALL INDICATORS 

970 TV=0 

980 FOR C = 1 T 5 

990 K = I NT ( R ND ( 1 ) *1 ) +1 

1000 I F K < P ( C ] THEN S[C]=S[C]*(1 + (P(C)/1 

000 ) ) 

1010 K = INT(RND(1 J *1 00 ] +1 

1 20 I F K <D ( C ) THEN S(C)=S(C]/(1 + (D(C]/1 

000 ] ] 

1 030 T V = T V + I S ( C ] * N [ C J ) 
1040 NEXT C 

1050 TV=T V+BB 

1 6 QQ=QQ*1 .005 

1070 W= ( TV*1 OO/QQ) -100 
1 08 I F W = THEN W= . 1 
1090 W=W+6 

1100 IF W<1 THEN W=1 

1110 I F W >1 5 THEN W = 1 5 

112 RESTORE 

1130 FOR T=1 TOW 

1140 R EAD A $ 

1150 NEXT T 

116 PRINT 

1170 REM ************************ 
118 REM GIVE RATING, START NEW ROUND 
1190 PRINT "YOUR RATI NG AFTER THAT ROUND 
OF " 

1 200 PRINT "TRADING I S ' " ; A $ ; 11 ' " 

1210 PRINT: PRINT " <PR ESS SPACEBAR TO 

CONTINUE >" 

1 220 I F I NK EY $ <>» " THEN 1 220 : R EM NOTE 
SPACE BETWEEN QUOTE MARKS 



1230 D AY=D AY+1 
1 240 GOTO 150 



1250 DATA 

1260 DATA 

1270 DATA 

1280 DATA 
VERAGE" 

1290 DATA 
D » 

1300 DATA 
VE" 



"HOPELESS", "VERY, VERY POOR" 
"TERRIBLE" ," AWFUL"," BAD" 
"VERY ORDINARY", "AVERAGE" 
"REASONABLE", "A LITTLE ABOVE A 

"FAIRLY GOOD" , "GOOD " , "VERY GOO 

" GREAT"," EX CELLENT","SUPERLATI 



If you want to modify the degree of difficulty of this simulation, 
change the 55 in line 170. The lower the number (down to 30), the 
easier it is to make a profit The higher the number (up to 80), the 
more difficult it becomes. The simulation will not run even remotely 
realistically if you use values less than 30, or greater than 80, in line 
170. 
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15 



Running an 
Automobile 
Company 



The complex processes of manufacturing and sales are presented, al- 
beit in a very simplified form, in this simulation. It took sixty years 
for the automobile market to become saturated in the United States. 
You have been unfortunate enough to be appointed as president of a 
major car manufacturing concern the very same month that the car 
market really hits bottom. To save the day — and your reputation as a 
hard-hitting, straight-from-the-shoulder, trouble-shootin', crisis- 
solvin' executive — you must get the tottering firm back on its feet 

You take over just as the accountants announce that the com- 
pany is losing $60 million a year. Your task, needless to say, is to try 
and make the company profitable. 

Here's how it begins: 

INDUSTRY SALES 50000 I N MONTH 



YOU HAVE 12000 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $ M 2 2.9 PER MONTH 



As you can see, the total sales within the automobile industry 
for the month before the simulation began (month 0) were 50,000 
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units. You start the simulation with your company holding about a 
quarter of the total industry sales, or around 12,500 vehicles. You 
have four factories, which are currently producing more vehicles 
than you can sell: 



MAXIMUM MONTHLY OUTPUT : 
FACTORY 1s 8900 
FACTORY 2 l 3250 
FACTORY 3 : 2 5 
FACTORY 4 : 1625 



T OTA L OUTPUT I S 1 6 2 7 5 



EFF ICI ENCY LEVEL I S 7 7 % 

D YOU WANT T EXPAND OUTPUT ( Y/N ) ? 

N 

D YOU WANT T SELL FACTORY 4 (Y/N)? 

N 



When the simulation begins, the average annual wage for each 
employee is around $23,000. This will rise each three months, due to 
union demands for adjustments to keep up with inflation. Although 
you cannot reduce wages, or refuse to include the raise due to infla- 
tion, you can decide how many people to hire or fire, and at what price 
you will sell each vehicle. When the simulation begins, each car sells 
for around $12,000: 



INDUSTRY SALES 5 IN MONTH 



YOU HAVE 12000 EMPLOYEES 
AVERAGE WAGES ARE S 22995 
OR $M 2 2.9 PER MONTH 



HOW MANY EMPLOYEES T HIRE? 
HOW MANY EMPLOYEES T FIRE? 567 



YOU HAVE 11433 EMPLOYEES 
AVERAGE WAGES ARE $ 2 2 9 95 
OR $M 2 1.9 PER MONTH 



WHAT I S YOUR SELLING PRICE? 12345 
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Once you've answered all the relevant questions, the simulation 
reports back to you on how well — or otherwise — you have performed: 

INDUSTRY SALES 48833 IN MONTH 1 

YOUR SALES : 13 3 8 6 ( 27.4 % OF TOTAL ) 



YOU HAVE 11433 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $ M 21.9 PER MONTH 



AVERAGE COST PER VEHICLE I S $ 10 19 2 

AND AVERAGE SELLING PRICE I S $ 12345 

SO THE AVERAGE PROFIT I S $ 2152 
OR $M 2 8.8 PER MONTH 



PROFIT FOR THE MONTH I S $M 6.9 
& TOTAL PROFIT T DATE I S $ M 6 . 9 



DO YOU WANT T RESIGN (Y/N)? 

N 

That wasn't too bad. You actually made a profit 
The process continues: 



INDUSTRY SALES 48833 I N MONTH 1 

YOUR SALES: 13386 ( 27.4 % OF TOTAL ] 



YOU HAVE 1 2 3 3 EMPLOY EES 
AVERAGE WAGES ARE $ 22995 
OR $ M 19.6 PER MONTH 



AVERAGE COST PER VEHICLE I S $ 10 19 2- 
AND AVERAGE SELLING PRICE I S $ 12345 

S THE AVERAGE PROFIT I S $ 2152 
R $M 2 8.8 PER MONTH 



PROFIT FOR THE MONTH I S S M 6 . 9 
& TOTAL PROFIT T DATE I S SM 6 . 9 



WHAT I S YOUR SELLI 
TOO BIG A CHANGE F 
WHAT I S YOUR SELLI 
I ND USTRY SALES 5 1 4 
YOUR SALES : 6 43 5 



NG PRICE? 24000 

OR THE MARKET 

NG PRICE? 14000 

85 I N MONTH 2 

( 12.5 % OF TOTAL ) 
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YOU HAVE 10233 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $M 19.6 PER MONTH 



AVERAGE COST PER VEHICLE IS $ 11630 
AND AVERAGE SELLING PRICE IS $ 14000 
SO THE AVERAGE PROFIT IS $ 2369 
OR $M 15.2 PER MONTH 



PROFIT FOR THE MONTH I S $M-4 . 4 
& TOTAL PROFIT TO DATE IS $M 2.5 



D YOU WANT TO RESIGN ( Y/ N ) ? 

N 

Just when you think you're getting it all under control, inflation 
exacts its toll: 

INFLATION RATE THIS QUARTER IS 2.5 % 
AVERAGE WAGES BILL WILL NOW RISE T 
$ 23569 PER EMPLOYEE 

ANY KEY TO CONTINUE 



Your next month is not very good: 

INDUSTRY SALES 49184 I N MONTH 3 

YOUR SALES : 6 8 37 [ 13.9 % OF TOTAL } 



YOU HAVE 97 43 EMPLOYEES 
AVERAGE WAGES ARE $ 2 3 5 6 9.88 
OR $M 19.1 PER MONTH 



AVERAGE COST PER VEHICLE I S $ 118 3 5 

AND AVERAGE SELLING PRICE I S $ 14500 

S THE AVERAGE PROFIT I S $ 2 6 6 4 
OR $M 18.2 PER MONTH 



PROFIT FOR THE MONTH I S $M-1 

a TOTAL PROFIT T DATE I S $M 1 . 5 



D YOU WANT T RESIGN ( Y / N ) ? 
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You start the simulation, as you've seen, with four factories. You 
have the option of at any time selling off factory number four. Alter- 
natively, you can increase the output of the factories. You'll find that 
the minimum cost per vehicle (and therefore the maximum profit per 
sale) occurs when your factories are running at 85% efficiency. 

Let's decide to sell off factory four, to let the income from that 
sale offset our losses: 



YOUR M ONT H LY SALES ARE 5517 



MAXIMUM MONTHLY OUTPUT 
FACTORY 1 : 8900 
FACTORY 2s 3250 
FACTORY 3 : 2 5 
FACTORY 4 : 16 2 5 



TOTAL OUTPUT IS 16275 



EFF I C I ENCY LEVEL I S 33 % 
D YOU WANT TO EXPAND OUTPUT ( Y / N ) 7 

N 

D YOU WANT T SELL FACTORY 4 ( Y / N ) ? 

Y 

FACTORY 4 I S VALUED FOR SALE AT $ M 1 4 
YOU CAN'T REBUY I T LATER I F 
YOU SELL IT... 

YOU WANT T SELL ( Y / N ) ? 

Y 



I've tried this simulation several times. Each time, the same fate 
occurs. Perhaps I'm just not cut out to run a multi-million-dollar 
business: 

INDUSTRY SALES 48991 IN MONTH 10 

YOUR SALES : 5 7 27 ( 1 1 . 6 % OF TOTAL ] 



YOU HAVE 9 7 3 
AVERAGE WAGES 
OR $M 19.8 P 



EMPLOYEES 
ARE $ 24521 . 51 
E R MONTH 



AVERAGE COST PER VEHICLE I S S 12418 
AND AVERAGE SELLING PRICE I S $ 15400 
SO THE AVERAGE PROFIT I S $ 2981 
OR $M 1 7 PEP MONTH 
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PROFIT FOR THE MONTH IS SM-2 . 8 

a TOTAL PROFIT TO DATE IS $ M 68.4 



DO YOU WANT T RESIGN ( Y / N ) ? 



YOU JUST MADE YOUR TWELFTH MONTHLY 

LOSS IN A ROW. . 

YOUR EMPLOYMENT 

IS HEREBY T ERM I NAT ED I I 



A much better outcome is, however, possible for those who are 
more skilled than I am: 



WELL D ON E I THE COMPANY HAS MADE MORE 
THAN SM200. YOU'VE BEEN MADE 

A MEMBER OF THE BOARD 



Here are the principal variables, as they are assigned at the start 
of this simulation: 



1630 REM ************************* 

1640 REM INITIALIZATI ON 

1650 CLS 

1 6 6 RANDOMIZE VA L [ R I GHT $ [ T I H E $ , 2 ] ) 

1670 DIM M ( 5 ) , Y [ 5 ) 

16 8 NE=1 2000 : REM STARTING NO EMPLOYEES 
1 6 90 AW = 22995 : REM STARTING AVERAGE WAGE 
1700 AC=1 1 1 00 : REM COST PRICE/ VEHICLE 
1710 AS=1 2000 : REM SELLING PRICE 

1 7 20 MI = 50*1 000 :MC = 1 0100 

1 7 30 Y ( 3 J =1 250 

1 7 40 MS = 25:EF=77:FA = 160:SF = 0:MT = 

17 50 FOR J=1 TO 5 
1 7 60 READ M [ J J 

17 7 NEXT J 

1780 RETURN 

1 7 9 DATA 8900 , 3250 , 2500 „ 1 6 25 , 1 6275 
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As you can see, the REM statements allow you to trace the var- 
ious formulas that are used in this simulation: 



220 INPUT "HOW MANY EMPLOYEES TO H I R E " p H 

230 NE=NE+HE: IF HE>0 THEN 260 

240 INPUT "HOW MANY EMPLOYEES T F I R E " ; H 

E 

250 NE=NE-HE 
260 60SUB 6 50 

270 P1 =AS: REM SET P1 EQUAL TO OLD PRICE 
280 INPUT "WHAT IS YOUR SELLING PRICE" ; A 
S 

290 REM NEXT LINE REJECTS TOO BIG A 

CHANGE I N SELLING PRICE 
300 I F ABS ( P1 -AS } >2500 THEN PRINT "TOO B 
I G A CHANGE FOR THE MARKET" : GOTO 28 
31 C LS 

320 PRINTgPRINTiPRINT 

330 MI=INT(RND(1 J*4000]+48*1000:REM THIS 

MONTH'S SALES BY INDUSTRY 
340 C = C + 1 : R EM COUNTS NUMBER OF MONTHS 
350 I F C<3 THEN 470 

360 M = I NT ( RND [ 1 J *1 + 1 J/4s REM INFLATI ON 
370 CLS 

380 PRI NT "INFLATION RATE THIS QUARTER I 

S " M » % " 

390 PRINT "AVERAGE WAGES BILL WILL NOW R 
I S E TO" 

400 AW= ( AW*M/1 00 ) + A W 

410 PRINT TAB { 8 J 5 " $» I NT ( AW] » PER EMPLOY 
EE" 

420 I F INKEYIO"" THEN 420 

430 PRI NT : PRI NT TAB ( 12); "ANY KEY TO C ONT 
I N U E » 

440 I F INKEY$="" THEN 440 
450 FA=[FA*M/1 OOJ+FA 
460 C=0 

470 Y { 1 )=NE*15/12:REM SALES BASED ON 

NUMBER OF EMPLOYEES 
480 Y[2)=(100-AS/FA]*MI/100:REM SALES 

BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINES SET LOWEST FIGURE 
FROM Y(1 ) ,Y(2J ,M(5] EQUAL TO Y ( 3 ) 
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500 IF Y (1 ] <Y ( 2 ] AND Y ( 1 ] <M ( 5 ] THEN Y [ 3 ) 

= Y ( 1 J s GOTO 540 

51 I F Y J 2 ) < Y ( 1 ] AND Y [ 2 ) <M ( 5 ) THEN Y ( 3 ) 
= Y ( 2 ) : GOTO 540 
5 20 Y { 3 ] =M ( 5 ) 

530 REM NEXT LI NES DETERMINE 

MONTHLY SALES 
540 I F ABS ( P1 -AS } <501 THEN Y [ 3 ] = 3 . 6 * Y ( 3 } 
/3 

550 I F Y ( 3 ] >M ( 5 ) THEN Y ( 3 ] = Y ( 3 ) - 1 9 7 5 : G T 
550 

560 MC= ( MC*M/1 00 ) +MC 

570 EF=Y ( 3 ]/M ( 5 J *1 00 : REM EFFICIENCY % 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC=(MC*(ABS(85-EF)/3]/100)+MC:REM 

AVERAGE COST PER VEHICLE 
590 MP=((Y[3)*[AS-AC])-(NE*AW/12)) : REM 

MONTHLY PROFIT 
600 MP=I NT ( MP/ (100*1000)) 
61 TP=TP + MP/1 i REM TOTAL PROFIT 

I N MI LLI ONS 

620 M=0 



The complete listing for DETROIT CITY is in the next chapter. 



Here's the complete listing of the DETROIT CITY program: 



1 REM DETROIT CITY 

20 GOSUB 1 6 40 s R EM INITIALIZE 

30 GOTO 110 

40 M T = M T + 1 : REM COUNTS MONTHS 

50 GOSUB 650 

60 IF T P > 2 THEN 1560 

70 PRINT "DO YOU WANT TO RESIGN ( Y / N J ? " 
80 GOSUB 1010 

90 I F A $ = " Y " THEN PRINT "OK, CHIEF ":END 
1 00 GOSUB 1 38 
110 GOSUB 650 

12 FOR T = 1 T 1 : N EXT T 
130 GOSUB 850 

140 PRINT "DO YOU WANT T EXPAND OUTPUT 
( Y/N J ?" 

15 GOSUB 1010 

160 IF A$="Y" THEN 1080 

1 70 I F SF=1 THEN 210 

180 PRINT "DO YOU WANT TO SELL FACTORY 4 
( Y/N J ? " 
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190 60SUB 1010 

200 I F A $ = " Y 11 THEN 1250 

210 GOSUB 650 

220 INPUT "HOW MANY EMPLOYEES TO HIRE" ; H 
E 

230 NE = NE+HEs IF H E >0 THEN 26 

240 INPUT "HOW MANY EMP LOY EES TO F I R E " ; H 

E 

250 NE=NE-HE 
260 GOSUB 650 

270 P1 =AS : R EM SET P1 EQUAL TO OLD PRICE 
280 INPUT "WHAT I S YOUR SELLING PRICE" ; A 
S 

290 REM NEXT LINE REJECTS TOO BIG A 
CHANGE I N SELLI NG PRICE 

30 I F ABS [ P1 -AS) >2500 THEN PRINT "TOO B 
I G A CHANGE FOR THE MARK ET" : GOTO 280 

31 C LS 

320 PRI NT g PRI NT g PRI NT 

3 30 MI = 1 NT ( RND ( 1 ) * 40 00 ] +48*1 00 I R EM THIS 

MONTH ' S SALES BY I ND USTRY 
3 40 C = C + 1 : R EM COUNTS NUMBER OF MONTHS 
350 I F C <3 THEN 470 

360 M=INT(RND(1)*10+1J/4gREM INFLATION 
370 C LS 

380 PRINT "INFLATION RATE THIS QUARTER I 

S " M " % " 

390 PRINT "AVERAGE WAGES BILL WILL NOW R 

I S E TO" 

400 AW= ( AW*M/1 ) + A W 

41 PRINT TAB[8];"$"INT(AW}" PER EMPLOY 

EE" 

420 I F I NK EY $ <>" " THEN 420 

430 PRI NT : PRI NT TAB(12) g "ANY KEY TO C ONT 
I N U E " 

440 I F INKEY$="" THEN 440 

45 F A = ( FA*M/1 00 ) +FA 

46 C=0 

470 Y ( 1 ] =N E*1 5/1 2 g R EM SALES BASED ON 

NUMBER OF EMP LOY EES 
480 Y(2)=(100-AS/FAJ*MI/100:REM SALES 

BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINES SET LOWEST FIGURE 
FROM Y(1 ) ,Y[2) ,M[5) EQUAL TO Y { 3 ) 
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500 IF Y ( 1 ] <Y ( 2 ] AND Y ( 1 ) <M ( 5 ) THEN Y ( 3 ) 
=Y ( 1 ) : GOTO 540 

510 IF Y ( 2 ) < Y ( 1 J AND Y ( 2 ] <M ( 5 ) THEN Y [ 3 ] 
= Y ( 2 J : GOTO 540 
5 20 Y ( 3 ) =H ( 5 J 

530 REM NEXT LINES DETERMINE 

MONTHLY SALES 
540 I F ABS ( P1 -AS) <501 THEN Y ( 3 ) = 3 . 6 * Y ( 3 ) 

/3 

550 I F Y ( 3 J >M ( 5 ] THEN Y ( 3 } = Y ( 3 ] - 1 9 7 5 : GOT 
55 

5 6 MC= ( MC*M/1 00 ) +MC 

570 EF=Y ( 3 ] /M ( 5 J *1 00 : R EM EFFICI ENCY % 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC=[MC*(ABS(85-EF)/3]/100)+MC:REM 

AVERAGE COST PER VEHICLE 
590 MP=((Y[3)*(AS-ACJJ-(NE*AW/12J) : REM 

MONTHLY PROFIT 
600 MP = I NT [ MP/ ( 1 00*1 000 )] 
610 TP=TP+MP/1 : REM TOTAL PROFIT 

IN MILLIONS 

620 M=0 

630 GOTO 40 

640 REM ************************* 

6 50 REM REPORT PRINTOUT 
660 CLS 

670 PRINT "INDUSTRY SALES "MI "IN MONTH "MT 

680 I F MT >0 THEN PRINT "YOUR SALES : " I NT ( 
Y ( 3 ) ) " ( " I NT ( Y ( 3 ) *1 OOO/MI )/1 "% OF TOTAL 
) " 

690 PRINT » 

_ _ _ " 

7 PRINT "YOU H A V E " N E " E M P L Y E E S " 
7 1 PRINT "AVERAGE WAGES ARE $" AW 

720 PRINT » OR $M"INT(AW*NE/(100*1000)/1 

2 ) / 1 " P E R MONTH" 

730 PRINT " 

_ _ _ n 

740 I F MT=0 THEN RETURN 

7 50 PRINT "AVERAGE COST PER VEHICLE I S 
$ " I NT ( AC ) 

760 PRINT "AND AVERAGE SELLING PRICE IS 
$ " I N T ( A S ) 



77 PRINT "SO THE AVERAGE PROFIT I S $ " I N 
T ( AS-AC ) 

780 PRINT "OR $ M » I N T ( (AS-AC)*Y(3)/(100*1 
000) J/10" PER MONTH" 

790 PRINT " 

ii 

800 PRINT "PROFIT FOR THE MONTH I S $ M " M P 

/1 

81 PRINT " & TOTAL PROFIT T DATE I S $M » 
INT ( TP*1 )/1 

820 PRINT " 

_ ii 

830 RETURN 

840 REM ************************* 
850 REM MONTH REPORT 
860 CLS 

870 I F MT >0 THEN PRINT "YOUR MONTH LY SAL 
ES ARE"INT[Y(3) ) 

880 PRINT " 

_ — — " 

890 PRINT "MAXIMUM MONTHLY OUTPUT:" 
900 PRINT TAB ( 3 ) ; "FACTORY 1 : " I NT [ M ( 1 ) J 
91 PRINT T A B ( 3 } ; "FACTORY 2:" INT[M(2)) 
920 PRINT TAB [ 3 ) ; "FACTORY 3 : " I NT [ M ( 3 )) 
930 I F SF=1 THEN 960 

940 PRINT TAB ( 3 ) ; "FACTORY 4 s " I NT ( M [ 4 ) ) 

950 PRINT " ■ 

_ _ _ » 

960 PRINT "TOTAL OUTPUT IS"INT(M[5) ) 

970 PRINT " 

ii 

980 PRINT "EFFICIENCY LEVEL IS"INT(EF)"% 

ii 

990 RETURN 

10 REM ************************* 

1010 REM GET REPLI ES 
1 20 A $ = I N K EY $ 

1 30 IF A $ < > " Y " AND A $ <> " N " THEN 1020 

1040 PRINT T A B ( 2 2 J ; A $ 

1050 FOR J=1 TO 500 : NEXT J 

1060 RETURN 

1070 REM ************************* 

1080 REM INCREASE OUTPUT? 

1 090 I F M ( 4 ] =0 THEN X=1 5 : GOTO 1110 



112 



110 X=1 8 

1110 PRINT "IT WILL COST $ M " X " TO EXPAND 

91 

1120 PRINT T A B ( 8 ] ; "OUTPUT BY 1 % » 

1130 PRINT " 

ii 

1140 PRINT "HOW MANY % D YOU WISH TO RA 
I SE OUTPUT?" 

1150 INPUT EP : I F EP <0 OR EP >1 00 THEN 115 



116 M [ 5 ] =0 

117 FOR T=1 TO 4 

1180 M[T)=M(T}+M(T)*EP/100 

1190 M [ 5 J =M [ 5 ] +M ( T J 

1200 NEXT T 

1210 TP = TP- EP *X 

1220 FOR T=1 TO 500 : NEXT T 

1230 GOTO 17 

1 240 REM ************************* 

1250 REM SALE OF FACTORY FOUR 

1260 PRINT "FACTORY 4 I S VALUED FOR SALE 
AT $M104" 

1 270 PRINT "YOU CAN'T R EBUY IT LATER IF 

YOU SELL IT..." 

1 280 PRINT "DO YOU WANT T SELL [ Y / N ] ? " 

1290 60SUB 1010 

1300 IF A$="N" THEN 210 

1310 TP = TP + 1 4 

1320 SF=1 

1330 M ( 5 ] =M ( 1 ) +M ( 2 ] +M ( 3 ] 

1 340 M ( 4 ] =0 

1 350 GOTO 1 7 

13 6 REM ************************* 

137 REM CHECK ON LOSSES 

1 380 I F MP >0 THEN SA = : GOTO 1480 

13 9 SA=SA+1 

1 400 IF SA >1 1 THEN 1 420 

1 41 GOTO 1 48 

1 420 CLS : PRI NT 

1430 PRINT "YOU JUST MADE YOUR TWELFTH M 
ONTHLY » 

1 440 PRINT "LOSS I N A ROW.. 

ii 

a a a 

1450 PRINT TAB[6J;"Y0UR EMPLOYMENT" 
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1 460 PRINT T A B [ 6 ) ; " I S HEREBY TERMINATED I 

I " 

1470 END 

1 480 I F TP > = -250 TH EN 15 3 
149 CLS : PRI NT 

1 5 PRINT "UNDER YOUR MANAGEMENT , THE C 
OMPANY H AS " 

1510 PRINT "LOST MORE THAN $ M 2 5 ! " 

1520 GOTO 145 

1 5 3 I F TP >200 THEN 1570 

1 540 RETURN 

155 REM ************************* 

1 560 REM SWEET SWEET SUCCESS! ! ! 
157 CLS : PRI NT 

1580 PRINT "WELL DONE! THE COMPANY HAS M 
AD E MORE" 

1590 PRINT " THAN $M200 . YOU'VE BEE 

N MADE" 

1600 PRINT " A MEMBER OF THE BOAR 

D " 

1610 FOR T = 1 T 2000 : NEXT T 
1620 END 

1630 REM ************************* 
16 40 REM INITIALIZATION 
1650 CLS 

1660 RANDOMIZE VAL(RIGHT$(TIME$ f 2] J 
1 67 DIM M [ 5 ] f Y [ 5 ] 

1 6 8 NE = 1 2000 : REM STARTING NO EMPLOYEES 

16 90 AW=22995 : REM STARTING AVERAGE WAGE 
1 7 AC = 1 1 1 00 : R EM COST PRICE/VEHICLE 
1710 AS=12000:REM SELLING PRICE 

1 7 20 MI = 5 0*1 :MC = 1 0100 
1730 Y ( 3 ] =1 250 

17 40 MS=25:EF=77:FA=160:SF=0:MT=0 
1 7 5 FOR J = 1 T 5 

1760 R EAD M [ J ) 
17 7 NEXT J 
1780 RETURN 

17 9 DATA 8900,3250,2500,1625,16275 
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5Jfe at the 

Super Bowl 



It all started back in 1823, at a very upper class school in England. A 
Rugby School student, William Webb Ellis, was playing soccer one 
day when he picked up the ball, tucked it under his arm, and ran fran- 
tically across his opponent's goal. In this moment the game that later 
became rugby football was born. From rugby football came rugby 
league, and eventually GRIDIRON. 

Some students from Harvard in 1874 saw the game, as it had 
then evolved, under way at Montreal University, and liked what they 
saw. They took some of the Montreal rules and used them to modify 
a soccerlike game that was already gaining favor in the States. 

The game took off, but was so rough and caused so many inju- 
ries that at the turn of the century many colleges called for it to be 
banned. However, Teddy Roosevelt, who liked the game (and most 
other rugged sports), suggested that instead of banning it, the game 
should be made simpler. A committee formed of leading coaches, 
managers, and players met in 1906 to consider Roosevelt's sugges- 
tion, and from this committee came the GRIDIRON we know today. 

In our program, you can either play against the computer team 
(known as the "Silicon Cowboys") or against another human being. 
In the game shown here, I decided to play against the computer: 

ONE PLAY E R R TWO 

? 1 
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AND THE NAME 
? H ART NE LL « S 



OF THE VISITING TEAM? 
RAIDERS 



In this simulation, you have the option of throwing, carrying, or 
punting (including field goal attempts) the ball. The program allows 
for four fifteen-minute quarters, and tests your decision-making 
skills and reflexes. 



T H E R 


E ARE 


6 MINUTES T G 






S I 


L I C N 


COWBOYS T K 


I C K OFF 


YOU 


ARE 


N YOUR 


OWN 35 YARD 


LINE 


S I L I 


CON C 


OWB OY S 


HAVE. . . 




KICK 


ED 1 


YARDS 






KICK 


ED 2 


YARDS 






KICK 


ED 3 


YARDS 












KICKED 5 2 Y 


ARD S 








KICKED 5 3 


YARDS 








KICKED 5 4 


YARDS 








KICKED 5 5 


YARDS 


THE 


BALL 


I S CAUGHT I 




AND 


R ETUR 


NED 1 


YARDS 




AND 


R ET UR 


NED 2 


YARDS 




AND 


R ETUR 


NED 3 


YARDS 





AND RETURNED 27 YARDS 
AND RETURNED 2 B YARDS 
AND RETURNED 2 9 YARDS 



THE BALL I S D OWN N 

HARTNELL'S RAIDERS' S 39 YARD LINE 
> PRESS ANY KEY < 

S I L I C HART N E 
60 MINUTES T G 

HARTNELL 1 S RAIDERS I N POSSESSION 

DOWN 

1 YARDS TO GO 



START AT 3 9 YARD LINE 
NOW N 3 9 YARD LINE 
61 YARDS T TOUCHD OWN 
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ON THIS PLAY HARTNELL ■ S RAIDERS CAN 
EITHER 1 - THROW 
2 - CARRY 
OR 3 - PUNT 

Once you've decided on your play, the computer will begin a 
count from one to eleven. You have to get rid of the ball during that 
count. If you don't do so in time, you'll be sacked and lose yardage or 
possession. 

HARTNELL ' S RAIDERS, YOUR QUARTERBACK HAS 

GOT THE BALL 

WAIT FOR THE COUNT , HARTNELL'S RAIDERS, 
THEN HIT ANY KEY... 

1 

2 

3 

4 

5 

6 

NICE PUNT . . . 

YOU'VE KICKED 24 YARDS 



The rules behind this simulation tempt you to wait as long as 
possible before delivering the ball. The longer you wait, the farther 
the ball will travel. For example, if you decide to throw the ball, and 
you stop the count on two, the ball will only travel ten yards, but if 
you'd stopped the count on ten, it would have gone forty yards. 



THE BALL IS CAUGHT I 

AND RETURNED 1 YARDS 

AND RETURNED 2 YARDS 

AND RETURNED 3 YARDS 



AND RETURNED 17 YARDS 

AND RETURNED 18 YARDS 

AND RETURNED 19 YARDS 

AND RETURNED 20 YARDS 



117 



THE BALL I S D OWN ON 

SILICON COWBOYS ' S 5 8 YARD LINE 

SI LI C HART N E 
5 9.7 MINUTES T G 



SILICON COWBOYS IN POSSESSION 
DOWN 

10 YARDS TO GO 



START AT 58 YARD LINE 
NOW N 5 8 YARD LINE 
42 YARDS TO TOUCHD OWN 



ON THIS PLAY SILICON COWBOYS CAN 
EITHER 1 - THROW 
2 - CARRY 
OR 3 - PUNT 



As you can see, the fact that you've thrown a given distance does 
not mean the play will be completed successfully. The chances of a 
play being complete are linked to the distance thrown. 



TOUCHDOWN! I I 
TOUCHD OWN I I I 
T OUC HD OWN I ! I 
TOUCHDOWN ! I I 
TOUCHD OWNI ! ! 
SILICON COWBOYS 6 
HARTNELL ' S RAIDERS 
T PLAY FOR EXTRA POINT 
> PRESS ANY KEY < 



There is a lot of action in this simulation, and you're sure to en- 
joy dressing it up even more. Here are a few additional scenes of the 
program in action: 



AND RETURNED 27 YARDS 

AND RETURNED 28 YARDS 

AND RETURNED 2 9 YARDS 

AND RETURNED 3 YARDS 

AND RETURNED 31 YARDS 
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THE BALL I S D OWN ON 

HARTNELL ' S RAIDERS' S 44 YARD LINE 

> PRESS ANY KEY < 

OK 

PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIODOVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 

SILICON COWBOYS 27 
HARTNELL ' S RAID ERS 6 

> PRESS ANY KEY < 



PERIOD OVER 
PERIOD OVER 
PERI D OVER 
PERIOD OVER 
PERIOD OVER 

SILICON COWBOYS 27 
HARTNELL'S RAIDERS 6 

> PR ESS ANY K EY < 
OK 

15 MINUTES T GO 



HARTNELL'S RAIDERS I N POSSESSION 
DOWN 

1 YARDS TO GO 



START AT 44 YARD LINE 
NOW ON 44 YARD LINE 
56 YARDS TO TOUCHDOWN 



ON THIS PLAY HARTNELL'S RAIDERS CAN 
EITHER 1 - THROW 
2 - CARRY 
OR 3 - PUNT 
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3 

4 

5 

6 

7 



GREAT RUNNING BY THE OPPOSITION HAS 
CAUSED YOU TO LOSE 3 YARDS 
> PRESS ANY KEY < 
OK 

GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAME OVER 
GAM E OVER 
GAMEOVER 
GAM E OVER 
GAM E OVER 
GAM E OVER 

SILICON COWBOYS 40 
HARTNELL'S RAIDERS 6 



The listing of GRIDIRON is given in the next chapter. 
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The 
GRIDIRON 

Listing 



When you want to try out for the Green Bay Packers, the New York 
Jets, or the Miami Dolphins, enter and run this listing: 

10 REM GRIDIRON 

SO CLS 

30 RANDOMIZE V A L ( R I 6 H T $ [ T I M E $ , 2 ] J 

40 GOSUB 70 

50 GOTO 220 

60 REM ************************ 

7 FOR X = 1 TO 1 500 : NEXT X 

8 RETURN 

90 REM ************************ 
1 00 PRINT A $ ; S A 
1 1 PRINT B $ ; SB 
120 R ETURN 

1 30 REM ************************ 
1 40 I F Z$=A$ THEN Z$=B$:R ETURN 
1 50 Z $ = A $ s RETURN 

160 REM ************************ 
1 70 I F INKEY$<>" " THEN 1 70 
180 PRINT " > PRESS ANY KEY <" 

1 90 I F I NK EY$= " " THEN 190 
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200 PRINT TAB ( 20 ) 1 " OK " 5 R ETURN 
210 REM ************************ 
220 REM INITIALIZE 
230 DEF FNA[X)=INT[ R N D [ 1 ) *X]+1 
240 PRINT "ONE PLAYER OR TWO" 
250 INPUT X 

260 I F X<1 OR X>2 THEN 250 

270 I F X = 1 THEN VC = 1 §A$=" SILICON COWBOYS 
" S GOTO 30 

280 PRINT "WHAT I S THE NAME OF THE HOME 
TEAM? " 

290 INPUT A $ : I F A $ = " " THEN 290 

300 PRINT 11 AND THE NAME OF THE VISITING 

TEAM ? » 

310 INPUT B $ : I F B $ = 11 11 THEN 31 

320 Z$=A$sNU=35 
330 CLS 

340 PRINT "THERE ARE"INT(10*(60-[W/4)))/ 
10" MINUTES TO GO" 

350 PRINT T A B ( B ] ; Z $ " TO KICK OFF " 

360 PRINT "YOU ARE ON YOUR OWN " NU "YARD L 

I N E" 

37 I F VC = 1 AND Z $ = A $ THEN GOSUB 70 : GOTO 
400 

380 PRINT "TO KICK OFF..." 

3 9 GOSUB 17 

400 A = F N A ( 2 ] +40 

410 PRINT Z$ J " HAVE..." 

420 FOR X = 1 T A 

430 PRINT T A B ( X/ 3 } j " KICKED "X" YARDS" 
440 NEXT X 
450 NU=NU+X 
46 GOSUB 7 

470 PRINT "THE BALL I S CAUGHT!" 

480 GOSUB 70 

490 A=FNA ( 30 ) +1 

500 FOR X=1 TO A 

51 PRINT TAB [X/5 ) ; "AND RETURNED "X" YARDS 

k 

520 NEXT X 

530 NU=ABS[ 1 OO-NU+X] 
540 GOSUB 1 40 

550 PRINT " — ' 

_ _ — — " 
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560 PRINT "THE BALL IS DOWN ON" 
5 70 PRINT Z$"«S"NU"YARD LINE" 
5 80 I F Z$ = A$ AND VC = 1 THEN GOSUB 70 : GOTO 
600 

590 GOSUB 170 

TG=1 g D=0 I SL=NU 
IF W = 6 OR W = 1 80 THEN 2010 
I F W=1 20 THEN 2070 
I F W=240 THEN 21 40 
CLS 

LEFT$(A$,6) ;SA;LEFT$(B$ f 6] : SB 
INT(10*(60-[W/4) ) ]/10 11 MINUTES 



600 
61 
6 20 
630 
6 40 

650 PRINT 
660 PRINT 
TO GO" 
67 GOSUB 

680 PRINT 

it 



70 



6 90 


PRI 


NT 


Z $ " IN 


POSSESSION" 


700 


PRI 


NT 


TAB [ 4 ) 


; D " D W N " 


71 


PRI 


NT 


TAB [ 4 J 


;TG" YARDS TO GO" 


7 20 


PRI 


NT 







730 


PRI 


NT 


ii 


7 40 


PRI 


NT 


ii 


7 50 


PRI 


NT 


1 


760 


PRI 


NT 


ii 



_ _ _ _ H 



770 
780 
00 

7 9 

8 00 
81 
820 
830 
840 
OTO 
850 
GOTO 
860 
EN P 
87 
880 
80 
890 



PRINT "ON THIS PLAY " ; 



IF Z$=A$ 


THEN 


PRINT A $ ; " CAN " : G OT 8 


PRINT B $ 


i " CAN" 




PRINT "EITHER 


1 - 


THROW" 


PRINT " 




2 - 


CARRY" 


PRINT " 


OR 


3 - 


PUNT" 


P = 








I F Z$=A$ 


AND 


VC = 1 


AND D < 3 THEN P = 2 : G 


900 








IF Z$=A$ 


AND 


VC = 1 


AND TG<7 THEN P=2 : 


900 








IF Z$=A$ 


AND 


VC = 1 


AND ( 1 OO-NU ) <31 TH 


= 3 s GOTO 


900 






IF Z$=A$ 


AND 


VC = 1 


THEN P = 1 s GOTO 900 


K$=INKEY 


$ : I F 


K $ < " 1 


" OR K $ > " 3 " THEN 8 



P = VAL( K$ } : PRI NT T A B ( 1 ] |"OK"P 



900 
91 
920 
930 
940 
950 



GOSUB 
W = W + 1 
C LS 
PRINT 
PRINT 
PRINT 
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Z$i" p YOUR QUARTERBACK HAS" 
TAB ( 8 J ; "GOT THE BALL" 



_ n 



960 PRINT "WAIT FOR THE COUNT , « ; Z $ ; " , 

970 PR I NT TAB [ 8 ] ; "THEN HIT ANY KEY..." 

980 I F INKEY$<>"" THEN 98 

990 GOSUB 7 

100 GOSUB 2200 

1010 I F E=1 1 THEN 2340 

1020 PRINT " 



10 3 ON P GOTO 1050,1310,1590 

1 040 REM ************************ 

1050 PRINT "YOU'VE THROWN" E*5" YARDS" 

1 060 PRINT TAB [ 4) ; "AND THE PLAY IS..." 

1 070 A = F N A [ 8 ) 

108 I F A=1 THEN 1520 

1 090 A = F N A ( E + 1 } 

110 I F A=1 THEN PRINT TAB[20);"...C0MPL 
ETE" : GOTO 1220 

1110 PRINT TAB(20] ;"... INCOMPLETE ":D=D+1 



1120 
1130 

1140 
1150 
1160 
1170 



GOSUB 
PRINT 



1 70 



I F D >3 THEN 116 
GOTO 610 

PRINT "THAT WAS YOUR 4TH D OWN" 
PRINT "AND YOU'VE LOST POSSESSI ON I I 



1180 D=0:TG=10:NU=ABS(100-NU) 

1190 GOSUB 7 

1200 GOSUB 1 40 

1 21 GOTO 61 

1 220 GOSUB 1 7 

1 230 NU=NU+(E*5] :TG=TG-(E*5j 

1 240 I F NU >1 00 THEN 1800 

1250 I F TG<1 THEN 1280 

126 D=D+1 : I F D>3 THEN 1160 

1 27 GOTO 61 



SL = NU 
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1280 D=0 i TG=1 : SL=NU 
1290 GOTO 610 

1300 REM a*********************** 

1310 A = F N A [ 1 5 J 

1320 IF A=1 THEN 1510 

1330 E=A-5 

1 340 I F E<0 THEN 1 440 

1350 I F E=0 THEN E=1 : GOTO 1370 

1 360 PRINT "GOOD SNAP , PASS AND RUN" 

1370 PRINT "YOU'VE GAINED »E" YARDS" 

1 3 8 G OS U B 17 

1390 TG=TG-E: N U = A B S ( NU+E) :D=D+1 

1 400 I F NU >1 00 THEN 1800 

1 41 I F TG<1 THEN 1280 

1 420 I F D > 3 THEN 116 

1430 GOTO 610 

1440 PRINT "GREAT RUNNING BY THE OPPOSIT 
I ON HAS " 

1450 PRINT "CAUSED YOU TO L0SE"ABS(EJ"YA 
RDS" 

146 TG=TG-E:NU=NU+E:D=D+1 

1 47 GOSUB 1 7 

1 480 I F D > 3 THEN 1160 

1490 GOTO 6 1 

1500 REM ************************ 

1510 PRINT "BAD SNAP ...YOU'VE" 

1 520 PRINT "FUMBLED. ..AND" 

1530 PRINT "YOU'VE LOST POSSESSION..." 

1 540 NU = 100-NU:D = 0:TG = 10:SL = NU 

1550 REM ************************ 

15 6 GOSUB 17 
157 GOTO 46 

1580 REM ************************ 

1 590 PRINT " N ICE PUNT..." 

1600 PRINT "YOU'VE KICKED »E*4" YARDS" 

1610 NU=NU+E*4 

1 620 I F NU >1 00 THEN 1 650 

16 30 PRINT " 



1 6 40 GOTO 46 

1 650 A = F N A [ 3 J 

1 6 6 I F A > 1 THEN 1 7 40 

1670 PRINT "BUT YOU'VE MISSED THE GOAL I I 



125 



1 680 I F NU-E*4<80 
4) ] : GOTO 1700 

16 90 

17 00 
1710 
17 20 
1 730 
1740 
17 50 
1760 
17 7 
17 80 
17 90 
1800 
1810 
1820 



THEN NU=ABS ( 1 00- [ NU-E* 



. . .AND SCORED!" 
SB = SB + 3 S GOTO 1770 



NU = 20 

D = g TG = 1 : SL = NU 
GOSUB 1 40 
GOSUB 17 
GOTO 610 

PRINT " 

I F Z $ = B $ THE 
SA=SA+3 
GOSUB 1 00 
GOSUB 1 7 
NU = 35 s GOTO 3 3 
CIS 

FOR X=1 TO 5 

PRINT T A B ( X * 2 ] TOUCHDOWN! I I" 



1830 
1840 
1850 
1860 
1870 
1880 
18 90 



NEXT X 
I F Z$ = A$ 
SB=SB+6 
GOSUB 1 00 
PRINT 
GOSUB 
PRINT 



THEN SA=SA+6 : GOTO 186 



"TO 
17 



PLAY FOR EXTRA POINT" 



1900 PRINT "THE BALL I S SNAPPED . . .PREPAR 
E TO KICK!" 
1910 GOSUB 7 
19 2 GOSUB 2200 

1930 I F E > 9 THEN PRINT "YOU MISSED" :NU = 2 

: G OT 197 

1 940 PRINT "YOU SCORED...": NU=35 
I F Z $ = A $ THEN SA = SA + 1 : GOTO 198 
SB = SB + 1 I GOTO 1980 
GOSUB 1 40 



1950 
196 
1 970 
1980 
199 
2000 
201 
2020 
2030 
2040 
20 50 
2060 
207 



GOSUB 1 00 

GOSUB 1 70 

GOTO 330 

FOR X = 1 T 1 

PRINT TAB ( 2*X ) 

NEXT X 

GOSUB 1 

GOSUB 170 

GOTO 660 

FOR X=1 TO 10 



"PERIOD OVER" 
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2080 PRINT TAB [ 2*X J i "HALF TIME" 

2090 NEXT X 

2100 GOSUB 100 

2110 Z $ = B $ 

2120 GOSUB 17 

2130 NU=35 : W=W+2 : GOTO 330 

2140 FOR X=1 TO 10 

2150 PRINT TAB [ 2*X] ; "GAME OVER" 
2160 NEXT X 
217 GOSUB 1 00 

21 80 END 

2190 REM ************************ 

2200 E=0 : X=1 

2210 IF Z$=A$ AND VC=1 THEN PRINT "THIS 
ONE FOR ";A$:GOTO 2290 
2220 E=E+1 : X=X-1 
2230 PRINT TAB [ E J ; E 
2240 FOR Y = 1 TO X*1 . 5 

2250 I F INKEY$<>»" THEN Y=X*1 .5+1 : RETURN 
226 N EXT Y 

2270 IF E=1 1 THEN RETURN 

228 GOTO 2220 

2290 FOR E = 1 TO FNA ( 7 ] +2 

2300 FOR J=1 TO 60 : NEXT J 

2310 PRINT TAB ( E ] ; E 

2320 NEXT E 

233 RETURN 

2340 PRINT "TOO LATE I " 

2350 PRINT "YOU'VE BEEN SACKED I " 

2360 E = F N A [ 4 J 

2370 I F E=3 THEN 2430 

2380 PRINT "AND LOST FIVE YARDS!" 

23 90 TG=TG+5:D=D+1 :NU=NU-5 

2400 GOSUB 17 

2410 I F D >3 THEN 1160 

2 420 GOTO 610 

2430 PRINT "AND LOST POSSESSIONI" 
2440 D = 0:NU = ABS(100-NU + 5) : SL = NU : TG = 1 
2450 GOSUB 17 

246 GOSUB 1 40 

247 GOTO 610 
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The 

Grand Slam 



In this sports simulation, you have a chance to play a three-set match 
of tennis against your computer. If you prefer, you can also play 
against another human being, with the simulation reporting on, and 
moderating, the action. 

Tennis got its start in England in the middle of the last century. 
By 1877 it was such a popular game that a national championship 
was staged at Wimbledon. There is a maximum of five sets in a match 
for men, and three for women. You have to win a maximum of six 
games to win a set You need to lead by two games in order to win a 
set 

The simulation calls on your decision-making skill and tests 
your reflexes. Your first decision concerns the speed of your serve. If 
you elect to play against the computer, it will always serve first, in 
order to allow you to see it in action. You'll learn a lot more about the 
simulation from watching the computer serve than from reading this 
introduction. 

The simulation is weighted so that fast serves have a better 
chance of an ace than do slow serves, but there is also a greater 
chance of a fault Slow serves will rarely result in an ace, but are also 
unlikely to be faults. 

After the serve, the simulation calls on your reflexes. The screen 
clears and indicates whose court the ball is in. After a brief pause, the 
computer will begin a countdown to - 1. To hit the ball, you need to 
wait until the count reaches zero, and then press any key. 
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If you "swing" too soon or too late, you'll miss the ball, and the 
computer will tell you whether the ball was in or out of play. Note that 
you can choose to leave a ball, if you think it is going to go out If you 
"hit" the ball by striking a key just as the count reaches zero, the 
screen will clear and show the ball in the other player's court This 
process continues until one player or the other misses the ball. 

The program begins by asking you whether there will be one hu- 
man player or two. If there is only one, it will ask for the player's name 
with the prompt NAME OF SECOND PLAYER?: 

ONE HUMAN PLAYER OR TWO? 1 
NAME OF SECOND PLAYER? TIM T Y 



This simulation needs names that are six letters long. If you enter a 
longer name, the computer will cut it down to size. The computer 
player's name, as you'll see in a moment, is "Bjornx". The match be- 
gins with Bjornx serving: 

BJORNX SERVING 

DO YOU WANT T SERVE 1 - FAST 

OR 2 - SLOW 

1 > IT'S A FAST SERVE . . . 



Bjornx elects a fast serve, and the mere human must attempt to 
return it: 



TIMOTY , THE BALL I S 
IN YOUR COURT 



HIT ANY KEY, WHEN YOU SEE THE ZERO, 
TO RETURN THE BALL... 
5 

4 

3 

2 

1 

YOU MISSED THE BALL, AND . . . 
IT WAS I N ... BAD MI STAKE 
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Unfortunately, Timoty is not playing with his usual fine form. 
The score is shown before Bjornx serves again: 





SET 


SET 


SET 






1 


2 


3 


GAME 


B J OR NX 











3 


TIMOTY 















BJORNX SER VI N G 

DO YOU WANT T SERVE 1 - FAST 

OR 2 - SLOW 

1 > IT'S A FAST SERVE . . . 



The scoring system in our simulation follows the real game, 
with a minimum of four points needed to win a game: 15, 30, 40, and 
game. If both sides score 40, "deuce" is declared, and the first player 
to score a point is said to have the "advantage." A further point is 
needed to win. If the opponent gets a point instead of the player with 
the "advantage," the score returns to "deuce." Of course, you do not 
have to worry about this scoring system, as the computer obligingly 
keeps track of everything for you. 

Here are a few more "snapshots" of the game in progress: 

GAME TO BJORNX 





SET 


SET 


SET 






1 


2 


3 


GAME 


BJORNX 


1 











TIMOTY 















TIMOTY SERVING 

D YOU WANT T SERVE 1 - FAST ' 

OR 2 - SLOW 

1 > IT'S A FAST SERVE. . . 
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.... OUT ... . 
. . .SECOND SERVE 
TIM OTY SERVING 
DO YOU WANT TO SERVE 1 

OR 2 



- FAST 

- SLOW 



> IT'S A SLOW SERVE. 





SET 


SET 


SET 






1 


2 


3 


GAME 


8 J OR NX 


6 











TIMDTY 


1 








4 



T I M OT Y SERVING 

DO YOU WANT T SERVE 1 - FAST 

OR 2 - SLOW 

2 > IT'S A SLOW SERVE. 



SET SET SET 





1 


2 


3 


GAME 


B J OR NX 


6 








1 5 


T I M OT Y 


1 


1 









B JORNX SERVING 

DO YOU WANT T SERVE 1 - FAST 

OR 2 - SLOW 



1 > IT'S A FAST SERVE. 



It appears that the human race is no match for the mighty com- 
puter: 





SET 


SET 


SET 






1 


2 


3 


GAME 


B J OR NX 


6 


4 





3 


T I M OTY 


1 


2 





40 


TIMOTY 


SERVING 








DO YOU 


WANT T 


SERVE 1 


- FAST 








OR 2 


- SLOW 


2 


> IT'S 


A 


SLOW 


SERVE 8 




SET 


SET 


SET 






1 


2 


3 


GAME 


B J OR NX 


6 


A 





{DEUCE 


T T M n T Y 


i 
i 


2 





{DEUCE 




SET 


SET 


SET 






1 


2 


3 


GAME 


B J OR NX 


6 


6 


6 





TIMOTY 


1 


4 


4 
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The 
TENNIS 




When you're ready to take on Bjornx for a set or two, enter and run 
the following listing: 



1 REM TENNIS 
20 C LS 

30 RANDOMIZE VA L [ RIGHTS (TIME$ , 2 ) ) 

40 AA=0 g BB=0 s T=0 s K A=0 

50 X A = s Y A = : ZA = 

60 XB = : YB = s Z B = 

7 DEF FNA (X] = I NT ( R N D ( 1 ) * X ] + 1 

80 INPUT "ONE HUMAN PLAYER OR TWO" J A 

90 I F A < 1 OR A > 2 THEN 80 

100 I F A = 1 THEN A$ = ,I BJ0RNX":VC = 1 

1 1 I F VC=1 THEN 1 60 

120 PRINT "PLEASE ENTER A SIX-LETTER NAM 

E" 

130 INPUT "NAME OF FIRST P LAYER" ; A $ 

140 I F L E N ( A $ ] < 6 THEN A $ = A $ + " " : GOT 1 40 

150 A$=LEFT$(A$, 6] 

16 INPUT "NAME OF SECOND PLAYER"} B$ 
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170 I F LEN [ B $ ) <6 THEN B $ = B $ + " " : GOTO 1 70 



1 80 B $ = LEFT $ ( B$ t 6 ] 

1 90 S = 1 g AA = 1 ? BB = 1 
200 C LS 

21 P $ =A $ : R $ = B $ 

220 REM ***************** 

2 30 I F P $ = A $ THEN R $ = B $ 
240 I F P$ = B $ THEN R $ = A $ 
250 PRINT P $ ; " SERVING" 

2 6 PRINT "DO YOU WANT T 



SERVE 1 - FAST 



270 PRINT " 



OR 2 - SLOW 



AND SC=0 THEN KB=1 



AND SC=1 THEN KB=2 



K $ > 11 2 " THEN 30 



280 IF P $ = A $ AND VC = 1 
: GOSUB 17 20: GOTO 330 

2 90 I F P $=A $ AND VC = 1 
i GOSUB 1 7 20 : GOTO 330 
300 K $ = I NK EY $ 
31 I F K $ < 11 1 n OR 
320 K B = V A L ( K $ ) 

330 PRI NT : PRI NT TAB[6);KB;TAB(10);"> IT 

S A » ; 

340 I F KB=1 THEN PRINT "FAST"; 

3 50 I F KB = 2 THEN PRINT "SLOW"; 
360 PRINT " SERVE, . . » 

3 7 GOSUB 17 20 

380 I F KB = 1 THEN E B = F N A [ 3 ] : GOTO 400 

3 90 EB = F NA ( 8 J 

400 I F EB = 1 THEN 450 

41 I F EB = 3 AND SC = THEN 520 

420 I F EB=3 AND SC=1 THEN 5 90 

430 G OT 670 

440 REM ****************************** 

450 C LS : PRI NT 

460 PRINT TAB( 8) ; " . . . .ACE. 

470 GOSUB 17 20 

48 SC=0 

490 I F P$=A$ THEN 1 1 40 

500 G OT 115 

51 R EM ****************************** 

520 CLS:PRINT 

530 PRINT TAB(12) ;" OUT " 

540 PRINT TAB(8) ;". . .SECOND SERVE..." 



550 GOSUB 1 7 20 

560 SC=1 

570 GOTO 230 

580 REM ****************************** 

590 C LS : PRI NT 

600 PRINT TAB (12};" OUT . . . . " 

61 PRINT TAB[9):".. ..DOUBLE FAULT..." 

620 GOSUB 1 7 20 

6 3 S C = 

640 IF P$=A$ THEN 1150 

650 G OT 1140 

6 6 REM ****************************** 

6 7 SC=0 

680 C LS : PR I NT 

6 90 I F INKEY$<>"" THEN 6 90 

7 PRINT R $ ; " f THE BALL IS":PRINT "IN Y 
OUR COURT" 

71 PRINT " » 

7 20 I F R $ = A $ AND VC = 1 THEN 750 

730 PRINT "HIT ANY KEY , WHEN YOU SEE THE 

ZERO , TO RETURN THE BALL..." 

740 I F INKEY$<>"» THEN 740 

7 50 X = 4 * F N A ( 3 } : Y = X 

7 6 GOSUB 1720 

770 E=5 

7 80 PRINT TAB ( 2* ( 1 1 -E ] ) ; E 

790 Y=Y-1 

8 00 S $ = I NK EY $ 

81 I F S $ <> " " AND E = THEN 890 

8 20 I F S $ <> 11 " THEN 990 

8 30 I F Y > THEN 7 90 

840 E=E-1 a Y=X 

850 I F E<-1 THEN 990 

860 I F E = -1 AND R $ = A $ AND VG = 1 THEN 8 90 

870 GOTO 7 8 

880 I F KB = 1 THEN E A = F N A ( 2 ) :GOTO 10 

8 90 E A = F N A ( 4 ] 

900 IF E = AND R$ = A$ AND VC=1 THEN E A = F N 
A t 8 ) 

91 I F EA=1 THEN 940 

920 I F R $ = A $ THEN R $ = B $ : GOTO 670 

930 R $ = A $ : GOTO 67 

940 PRINT R $ ; " , YOU'VE HIT THE BALL" 

950 PRINT T A B ( 8 ] :" OUT OF PLAY . . . " 



960 60SUB 1720 

970 IF R $ = A $ THEN R $ = B $ : G 0T 1150 

980 GOTO 1140 

990 E A = F N A [ 4 J 

1000 IF EA=1 THEN 1070 

1010 PRINT "YOU MISSED THE BALL, AND. . . 
1020 GOSUB 1720 

1 30 PRINT " IT WAS I N ... BAD MISTAKE" 
1040 GOSUB 17 20 

1 50 I F R $ = A $ THEN R $ = B $ : GOTO 1150 
10 6 GOTO 1140 

1070 PRINT "YOU MISSED THE BALL AND..." 
1080 GOSUB 1720 

10 90 PRINT " IT WAS OUT . .WELL LEFT" 
110 GOSUB 1 7 20 

1110 I F R $ = A $ THEN R $ = B $ : G OTO 1140 
1120 GOTO 115 

1130 REM ****************************** 
1140 AA=AA+1 : GOTO 116 

115 B B = B B + 1 

116 I F AA<5 AND BB<5 THEN 1230 

117 I F ( B B > 4 AND A A < 4 ) OR ( B B > 4 AND BB 
AA >1 ) THEN AA = 1 : BB = 1 : GOTO 1500 

118 I F ( AA >4 AND BB <4 ) OR { AA >4 AND AA 
BB >1 ) THEN AA = 1 : BB = 1 : GOTO 1 440 

1190 I F AA >4 AND AA >BB THEN C$ = "ADV":D$ 
" " : GOTO 1320 

1 200 I F BB >4 AND BB > A A THEN D$="ADV" :C$ 
" " : GOTO 1320 

1210 C$ = " {DEUCE" :D$ = " {DEUCE" s GOTO 1320 

1220 REM ****************************** 

1230 RESTORE 

1 240 FOR = 1 T AA 

1250 READ C$ 

1 260 NEXT D 

1 270 RESTORE 

1 280 FOR D =1 TO BB 

1 2 90 READ D $ 

1300 NEXT D 

1310 REM ****************************** 
1 320 C LS 

1330 PRINT " " 

13 40 PRINT " SET SET SET" 



1350 PRINT " " 

1360 PRINT " 1 2 3 GAME" 



1 37 PRINT A$ ; » " ;XA ; » " ; Y A ; " " ; ZA ? » 

" ; C $ 

1 380 PRINT B $ j 11 11 j X B ; " " ; Y B ; " " ; Z B ; " 

" i D $ 

1 3 90 PRINT " «• 

140 GOSUB 17 20 

1 41 I F T <>1 THEN 230 

1 420 END 

14 3 REM 

1 440 CLS 

1 450 PRINT "GAME TO " ; A $ 
1 460 GOSUB 1720 

1 470 IF S = 1 THEN XA=XA + 1 :C$ = "0":D$ = »0 II :G 
OT 15 6 

1 480 I F S = 2 THEN Y A = Y A + 1 :C$ = "0 ,l :D$ = »0":G 
OT 158 

1490 I F S=3 THEN ZA=ZA+1 :C$="0":D$=»0":G 
OTO 1600 
1500 CLS 

1510 PRINT "GAME T " ; B $ 
1520 GOSUB 1720 

1 530 I F S = 1 THEN XB=XB + 1 :C$ = »0" :D$ = "0»:G 
OTO 1560 

1 5 40 I F S = 2 THEN Y B =Y B + 1 :C$ = "0":D$ = "0" :G 
OTO 158 

1 550 I F S = 3 THEN ZB = ZB + 1 :C$ = "0" :D$ = "0" :G 
OTO 16 

1 560 IF (XA>5 AND XB <5 ] OR (XA<5 AND XB > 
5 J THEN 1 630 

1 570 IF (XA>5 AND XA-XB >1 ) OR (XB>5 AND 
XB-XA >1 J THEN 1630 

1 580 I F [YA>5 AND YB<5 J OR ( YA<5 AND YB> 
5 ) THEN 1630 

1 590 IF ( YA>5 AND Y A - Y B < 1 ) OR ( Y B > 5 AND 
YB-YA >1 ) THEN 1630 

1 600 I F [ ZA >5 AND ZB <5 ] OR ( ZA<5 AND ZB> 
5 ) THEN 1680 

1610 I F ( ZA>5 AND ZA-ZB >1 ] OR ( ZB >5 AND 
ZB-ZA >1 ) THEN 1680 
16 20 GOTO 1640 
1630 S=S+1 



1640 AA = 1 : B B = 1 

1 6 50 IF P$ = A$ .THEN R$ = A$:P$ = B$:G0T0 13 20 

1660 P $=A$ s R $=B $s GOTO , 1 320 

1670 REM ****************************** 

1680 T=1 

1690 BOTO 1320 

1700 REM ****************************** 

1710 REM DELAY 

1 7 20 FOR M = 1 TO 1 00 : N EXT M 

1730 RETURN 

1 740 DATA " » , " 1 5 " , 11 3 " , " 4 " 
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Now you have the chance to drive a simulated racing car around your 
choice of four of the world's greatest Grand Prix circuits. You, too, 
can be a hero on the British course known as "The Whale," at Ger- 
many's "The Key," on the Italian track called "The Shoe," or on the 
3100-meter track at Monaco. 

The program begins by asking your name, wishing you luck, and 
asking you which track you wish to try and how many laps the race 
will be over: 



WHAT I S YOUR NAME, DRIVER? HARTNELL 

OK , GOOD LUCK , HARTNELL 

OK, GOOD LUCK , HARTNELL 

OK, GOOD LUCK, HARTNELL 

WHICH RACE YOU WANT TO TAKE PART I N : 

BRITISH GRAND PRIX 2650MT ;1 

GERMAN GRAND PRIX 1700MT ;2 

ITALIAN GRAND PRIX 2200MT :3 

M ONACO GRAND PRIX 31 M T : 4 

ENTER A NUMBER (1 T 4 ] 
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OK, THE BRITISH RACE 
************************************* 

OVER HOW MANY LAPS? 
? 1 



The aim of the simulation, naturally enough, is to complete the 
race as quickly as possible, without crashing and without overheat- 
ing either your engine or your brakes. The race begins as follows: 

You start the race, as the fifth line down indicates, in the sixth 
position. On the British circuit, you start the simulation at 140 ki- 
lometers an hour, just under the speed recommended for the ap- 
proaching corner. To increase your speed, you hit the "M" key. The 
"Z" key will slow you down, and the space bar allows you to maintain 
the same speed. 

A few seconds after the above "snapshot" of the simulation, the 
screen looked like this: 



ENGI N E T EMPERATUR E 


10 C . (MAX 


. 2 } 


BRAK E TEMPERATURE : 


10 C . (MAX. 


5 ) 


DISTANCE COVERED: 


METERS 




5 


LAPS 




YOU'RE I N POSITION 


6 




CURRENT SPEED : 


140 KPH 




: 


7 7.7 METERS 


PER MOVE 


CORNER APPROACHING 


800 METERS 




RECOMMENDED SPEED : 


15 KPH 





The simulation run began with the first corner 800 meters away. 
This has now shrunk to just 57 meters, and I've increased my speed 
to 148 kph, just below the recommended speed for taking that corner 
of 150 kph. The engine has warmed up slightly, but still a long, long 
way away from the maximum of 200 C, and the temperature of the 
brakes has gone up from 10 degrees to nearly 55. 

ENGINE TEMPERATURE 104.6 C . (MAX. 20 ) 
BRAKE TEMPERATURE : 54.7 C . (MAX. 500) 
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D I STANCE COVER ED : 


7 42 


.2 METERS 




. 2 8 


LAPS 


YOU'RE IN POSITION 


6 




CURRENT SPEED; 


1 48 


KPH 




8 2 . 


2 METERS PER MOVE 


CORNER APPROACHING 


5 7 


METERS 


RECOMMENDED SPEED; 


1 5 


KPH 



I safely negotiate that corner, but find that I have perhaps been 
a bit too cautious: with just under half of the one-lap race completed 
I have fallen back to the seventh position after starting in position six: 



ENGI N E TEMPERATUR E 


8 7.1 C . (MAX. 


2 ] 


BRAK E TEMP ER ATUR E : 


15 7.3 C . (MAX. 


50 ) 


D I STANCE COVERED : 


110 2 METERS 






. 41 LAPS 




YOU'RE I N POSITION 


7 




CURRENT SPEED : 


112.3 KPH 






6 2.3 METERS PER 


MOVE 


CORNER APPROACHI NG 


97 METERS 




RECOMMENDED SPEED : 


9 KPH 





I am just 97 meters from the next corner, where the recom- 
mended cornering speed is 90 kph. I'm doing just over 112 kph. Fran- 
tically, I slam on the brakes, punching at the "Z" key. But it is too late: 

YOU CORNERED AT 10 4.8 KPH 
AND THE MAXIMUM SPEED WAS JUST 90 
YOU SPIN OFF THE TRACK... 
AND CRASH! ! ! ! I 



YOU ONLY COMPLETED 12 18.4 METERS, 
OR . 4 5 LAPS AND A T THAT 
STAGE WERE I N POSITION 7 
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YOUR AVERAGE SPEED WAS 137.07 KPH 
YOU WERE 2 TH FASTEST ON STRAIGHTS, 
AND 12 TH FASTEST ON CORNERS. 

PRESS 'S' FOR SAME RACE, ' N ' FOR NEW 
RACE, ' E • TO END 



I was in seventh place when my race ended. The final screen tells 
me my average speed was a shade over 137 kph, I was second fastest 
on the straights, and only twelfth fastest on the corners. 

As you can see, you are given the choice of running the same 
race again (by pressing "S"), choosing a new race ("N"), or ending the 
simulation ("E"). 

I press "N" and decide on the German circuit: 



$ $ & $ $ 


****** 


****** 


******** 


* * * 


* 


* * * * 


* * * * 


WHICH 


RACE 


DO YOU 


WANT TO 


T A 


K 


E PA 


R T I 




BR I T I 


S H GR A 


ND PRIX 


2 6 


5 


M T 


: 1 




G ER M A 


N G R A 


N D PRIX 


1 7 





M T 


: 2 




I T A L I 


AN GR A 


ND PR I X 


2 2 





M T 


: 3 




M ON A C 


GR A 


N D PRIX 


3 1 





M T 


: 4 




ENTER 


A N U M 


B E R (1 T 


4 


) 






* * * * * 


****** 


****** 




* * * 


* 


* * * * 


* # * * 




OK , 


THE G E 


R M A N R A C 


E 








* * * * * 


$ $ $ $ $ $ 


****** 


******** 


* * * 


* 


* * * * 


* * * * 


OVER 


HOW MA 


NY LAP 


S ? 











? 1 



This time, I take fewer risks, and am soon on my way to com- 
pleting the circuit without mishap: 



ENGINE T EMPERATUR E 117.5 C . (MAX. 200 

BRAKE TEMPERATURE: 34.5 C . (MAX. 5 ) 

DISTANCE COVERED: 1424.3 METERS 

: .83 LAPS 

YOU'RE IN POSITION 27 
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CURRENT SPEED 5 116. 3 KPH 

: 64.6 METERS PER MOVE 



CORNER APPROACHING 75 METERS 
RECOMMENDED SPEED : 200 KPH 

A few careful moments later, and I've done it: 

WELL DONE, HARTNELL ! I 

YOU MANAGED TO LAST OUT THE FULL 
1 LAP RACE . . . 



The main value of this simulation, apart from that of its high en- 
tertainment potential, is showing how the facts of "real life" (such as 
the engine speed maximum, and the data on each track) can be en- 
coded into a program. You can also see how the formulas link the var- 
ious outputs together in a realistic way— for example, how lines 370 
and 380 work out how far you have traveled, by converting your speed 
in kilometers per hour into meters. 

Note also that lines 320 and 330, which act on your attempts to 
speed up or slow down, add or subtract a value that is related to the 
actual speed you are traveling. This means you can brake more dra- 
matically when you are moving quickly than you can while moving 
slowly. Using a value that is related to current speed also overcomes 
the realism-destroying practice ofjust changing the current speed by 
a fixed value each time a key is pressed. 

YOU FINISHED IN 30 POSITION, 
AFTER STARTI NG I N 6TH POSITION... 

YOUR AVERAGE SPEED WAS 100.38 KPH 
YOU WERE 14 T H FASTEST N STRAIGHTS, 
AND 47 TH FASTEST ON CORNERS. 

PRESS 'S' FOR SAME RACE, ' N ' FOR NEW 
RACE, ' E ' TO END 
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The Tracks 

Here are the four Grand Prix circuits that are encoded within the 
program. 

British Grand Prix 

"The Whale," 2650 meters: 




German Grand Prix 

"The Key," 1700 meters: 



"Death Elbow" 200 




600m Finish 
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Italian Grand Prix 

"The Shoe," 2200 meters: 




Monaco Grand Prix 

3100 meters: 




Numbers not followed by "m" indicate maximum cornering speeds. 
Numbers followed by "m" (for meters) indicate distances between corners. 
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The 
GRAND PRIX 

Listing 



Take a firm grip on the wheel, and tackle the GRAND PRIX circuits 
with this listing: 



1 

2 

3 
40 

5 

6 

7 

8 

9 
1 
1 1 
1 2 
130 
140 
}/1 



REM GRAND PRIX 
60SUB 2200 : R EM INITIALIZE 
GOSUB 1 1 90 : R EM CHOOSE TRACK 
HEM ************************* 

REM MAJOR LOOP 
GOSUB 1 20 : R EM PRINTOUT 

ACCELERATION/CHECK 
ENGINE/BRAKES 
CORNER/POSITI ON 



GOSUB 
GOSUB 
GOSUB 
GOTO 
REM 



28 : R EM 
450 : R EM 
500 : REM 

6 

************************* 



REM PRINTOUT 
CLS 

PRINT "ENGINE TEMPERATURE" INT(ENG*10 
"C . [MAX . 2 ]" 



1 50 PRINT "BRAKE TEMPERATURES "INT[BRAK*1 

J/1 " C . [MAX. 500 )" 

1 60 PRINT » DISTANCE COVERED s "INT(DIST*1 
]/1 0" METERS" 



146 



170 PRINT " :"INT(DIST*1 
00/RR ] /1 00 " LAPS" 

180 PRINT "YOU'RE I N POSITION "INT(FP] 
190 PRI NT » 



200 PRINT " CURRENT SPEED: »INT(SPEED* 

1 ) / 1 " K P H " 

210 PRINT " :"INT(SPEED* 
5. 555J/10" METERS PER MOVE" 

220 PRINT " 



230 PRINT "CORNER APPROACHING "INT(APP) "M 
E T E R S " 

240 PRINT "RECOMMENDED SPEED: "C(C]"KPH" 



250 PRINT 



26 RETURN 

2 7 REM ************************* 

280 R EM CHECK ACCELERATION AND FACTORS 

2 90 X$ = INKEY$ : IF X $ <> " Z " AND X $ < > " M 11 AND 
X $ <> " " THEN 290 

3 PRINT T A B [ 1 2 ] ; 11 K " 
3 1 X = 

320 I F X $ = » M " THEN X = SP EED/1 5 
330 I F X $ = " Z " THEN X = -SP EED/1 5 
3 40 NUM = NUM + 1 : R EM NUMBER OF MOVES 
350 SPEED=SPEED+X 
360 I F SP EED <0 THEN SPEED = 
3 7 TRAV=SPEED*.5555:REM DISTANCE 

TRAVELLED 

380 D I ST = D I ST + TRAV : R EM TOTAL D I STANCE 

TRAVELLED 

3 90 ENG = ENG+(X/2 ] + .07 : IF ENG<70 THEN EN G 

= 70 + R ND ( 1 ] *8 : R EM ENGINE TEMP 

400 I F X >0 THEN BRAK = BRAK* . 9 : R EM BRAKE 

TEMP FALLING; ACCELERATING 
410 I F X <1 THEN B R A K = B R A K - J 3 * X ) - R N D ( 1 ) * 3 
SREM BRAKE TEMP INCREASING; BRAKING 
420 I F BRAK <8 THEN BRAK = 8 + RND ( 1 ] *8 
430 RETURN 

440 REM ***************** * * ****** 

450 REM CHECK ENGI NE/BRAK E TEMP 

460 I F ENG>200 THEN PRINT "YOUR ENGI N E H 

A S OVERHEATED » : GOTO 8 3 
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470 IF BR AK >500 THEN PRINT "YOUR BRAKES 
HAVE OVERHEATED" : GOTO 8 3 

480 RETURN 

490 REM ************************* 

500 REM CHECK CORNERING SPEED 

AND FIELD POSITION 

510 APP=APP-TRAV 

520 I F APP >0 THEN RETURN 

530 C R A S H = 

540 I F SPEED >( C ( C ) *1 .125) THEN CR ASH = 1 : G 

OTO 690 

550 I F SPEED > ( C [ C J *1 .1 ] THEN GOTO 690 

560 PNT=PNT+100-((C(C)*1.1)-SPEED):REM C 

ORNERING POINTS 

57 NC = NC + 1 : R EM NUMBER OF CORNERS 
580 CP = 96-(PNT/NC] : R EM CORNERING 

POSITION 

5 90 AM = AM +A ( C ) : R EM AVERAGE NUMBER 

OF ,M OVES ALLOWED 
600 RP = NUM-AM : REM RACING POSITION : YOUR 

MOVES MINUS AVERAGE MOVES 
61 FP= ( CP + RP ) /2 : REM FIELD POSITION I S 
AVERAGE OF CORNER & RACE POSITI ONS 
620 I F FP <1 THEN FP = 1 
630 C=C+1 

640 I F C = WW THEN C = 1 : R EM LAP OVER 

6 5 APP = APP +D ( C ] 

6 6 I F LAP*QQ = AM THEN 91 : R EM RACE OVER 
6 70 RETURN 

680 REM ************************* 

6 90 R EM CRASHED 

7 00 CLS 

71 PRINT "YOU CORNERED AT"INT(10*SPEED) 
/ 1 11 K P H " 

7 20 PRINT "AND THE MAXIMUM SPEED WAS JUS 
T " C ( C ] 

7 30 GOSUB 2330 

740 PRINT "YOU SPIN OFF THE TRACK . . . 

750 GOSUB 2330 

760 I F CR AS H = 1 THEN 830 

770 PRINT "YOU'VE LOST 20 SECONDS f BUT Y 
OU'RE ABLE TO REJOIN THE RACE" 

780 NUM=NUM+10:SPEED=INT(2*C[C)/3) 
7 90 PNT=PNT+50 
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800 GOSUB 2330 

810 GOTO 5 7 

820 REM ************************* 

8 30 PRINT " AND CRASH! ! ! ! ! " 

840 PRINT " . . 



850 PRINT "YOU ONLY COMPLETED "INT{1 0*DIS 
T)/10" METERS," 

860 PRINT "0R"INT(DIST*1 00/RR)/1 00" LAPS 
AND AT THAT" 

870 PRINT "STAGE WERE IN POSITION "INT(FP) 
880 PRINT " 



890 GOTO 10 5 

900 REM *********************#*** 

91 REM RACE OVER 

9 20 CLS 

9 3 EF LA G = 1 

9 40 FOR X = 1 T 2 

950 PRINT T A B ( X ) ;"WELL DONE, » ; A $ ; " ! ! » 

960 PRINT TAB ( 21 -X ) ; "WELL DONE f " ; A $ ; " I ! 

ii 

970 NEXT X 

980 PRINT " 



990 PRINT "YOU MANAGED TO LAST OUT THE F 

ULL " LAP " LAP RACE ... " 

1 00 PRINT " . 



1 01 GOSUB 2330 

1020 PRINT "YOU FINISHED I N POSITION "INT 
IFP] 

1030 PRINT "AFTER STARTING I N 6TH POSITI 
ON..." 

10 40 GOSUB 2 3 3 

1050 PRINT "YOUR AVERAGE SPEED WAS"INT{D 

IST*180/NUM]/100"KPH" 

10 6 GOSUB 2 3 3 

1 07 I F RP <1 THEN RP = 1 

1 08 I F CP <1 THEN CP = 1 

1090 PRINT "YOU WERE" INT(ABS(RP})»TH FAS 
TEST ON STRAIGHTS," 

1100 PRINT "AND»INT(ABS(CP) ] "TH FASTEST 
ON CORNERS." 



1110 
E, 1 
1120 
D I $ 
1130 
1140 
1150 

116 
GOTO 

117 
6 

118 
1190 

1200 

$ 

1210 

122 

123 



R AC 



S • FOR SAME 
' E « T END " 
AND I $ < > " N " AN 



PRINT: PRINT "PRESS » 
N 1 FOR NEW RACE , 

I$ = INKEY$:IF I $ <> " S " 
< > " E " THEN 1120 

I F I $ = 11 E " THEN END 

GOSUB 2240 

RESTORE 

I F I $ = " S " THEN GOSUB 
6 

I F I $ = " N 11 THEN CLS : GOSUB 1 250 : GOTO 



1490:LAP=L2AP: 



REM NAME AND TRACK DATA 

INPUT "WHAT I S YOUR NAME, DRIVER" ;A 



PRINT 
FOR X 
PRINT 



= 1 TO 3 

TAB [ 4*X ) | "OK, 



GOOD LUCK , " ; A $ 



1240 GOSUB 2330 : NEXT X 

1250 PRINT » **************************** 



1 26 


PR 
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NT 


"WHICH 


RACE D 


YOU WANT TO 


TA 


K E PART 




I N : 


ti 
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PR 


I 


NT 
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PR 


I 


NT 


TAB [ 7 ) 


; "BRITISH 


GRAND PRIX 


2 


650MT 




1 


1 " 
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PR 


I 


NT 


TAB [ 7 J 


H "GERMAN 


GRAND PRIX 


1 


700MT 




: 


2 " 










1300 


PR 


I 


NT 


TAB ( 7 ) 


; "ITALIAN 


GRAND PRIX 


2 


200MT 




: 


3 " 
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PR 


I 


NT 


TAB ( 7 ) 


; " M N A C 


GRAND PRIX 


3 


1 OOMT 




§ 


4" 
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PR 


I 


NT 










1 330 


PR 


I 


NT 


TAB ( 7 ] 


; " E N T E R A 


NUMBER (1 


TO 


4} " 
















1 340 


K $ 


= 


I N K E Y $ 








1350 


I F 




K $ < 


" 1 " OR 


K $ > " 4 " THEN 1 340 
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GP 


= 


V A L [ K $ ) 








1370 


PR 


I 


NT 










* * * » * 


# * 


* 


* ii 
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PR 


I 


NT 


TAB ( 8 ] 


; " K , THE 


" ; 




13 90 


I F 




GP = 


1 THEN 


PRINT "BRITISH"; 




1 40 


I F 




GP = 


2 THEN 


PRINT "GERMAN": 
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1410 I F GP = 3 THEN PRINT "ITALIAN"; 

1420 IF GP=4 THEN PRINT "MONACO"; 

143 PRINT " RACE" 

1440 PRINT "**************************** 

********* ii 

1 45 PR I NT : PR I NT "OVER HOW MANY LAPS? " 

1 460 INPUT L A P : I F LAP <1 THEN 1 46 

1 47 LAP = INT{LAP+.5] :L2AP=LAP 

1480 REM ************************ 

1490 REM BRITISH DATA 

1500 SPEED=140 

1510 FOR X=1 TO 9 

1 5 20 READ D [ X ) : R EM D I STANC E BETWEEN 

CORNERS 

1530 NEXT X 

1 5 40 DATA 800,400,250,200,250,300,100,10 
0,250 

1 550 FOR X = 1 T 9 

1 56 READ C [ X ] : R EM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1570 NEXT X 

1580 DATA 150,90,175,200,200,90,90,150,1 

5 

1 5 90 FOR X = 1 T 9 

1 6 READ A { X ) : R EM AVERAGE NUMBER OF 
MOVES ALLOWED B ETWEEN CORNERS 

1610 N EXT X 

1 6 2 DATA 8,4,2,2,2,2,1 ,1 ,2 

1630 APP=800 : WW=1 s QQ=24 § RR=2650 

16 40 I F GP=1 THEN RETURN 

1650 REM ************************ 

1 6 60 R EM GERMAN DATA 

1 6 7 SPEED=85 

1 6 8 FOR X = 1 T 7 

1 6 90 READ D ( X ) 

1 7 N EXT X 

17 10 DATA 600,200,100,150,250,200,200 
1 720 FOR X = 1 T 7 

1 730 READ C ( X ) 

1 740 NEXT X 

1750 DATA 90,175,120,90,200,200,175 

1 7 6 FOR X = 1 T 7 

1770 READ A ( X ) 

17 8 NEXT X 
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1 7 90 DATA 6,2,1 ,2,2,2,2 

1800 APP=60 0sWW=8sQQ=17|RR=1700 

1810 I F GP=2 THEN RETURN 

1 820 REM *##****#*#************** 

1830 REM ITALIAN DATA 

1840 SPEED =108 

1850 FOR X=1 TO 7 

1 860 READ D [X] 

1 87 NEXT X 

1880 DATA 800,300,100,150,300,350,200 

1890 FOR X=1 TO 7 

190 READ C ( X ) 

1 91 NEXT X 

1920 DATA 120,90,90,150,200,120,150 

1930 FOR X=1 TO 7 

1940 READ A[X) 

1 95 NEXT X 

1 96 DATA 8,3,2,1 ,3,3,2 

1970 APP=800 s WW=8 ! QQ=22 s RR=2200 

1980 I F GP=3 THEN RETURN 

1990 REM ************************* 

2000 REM MONACO DATA 

201 S P E E D = 1 62.5 

2020 FOR X=1 TO 1 4 

2 3 READ D ( X ] 
2040 NEXT X 

2050 DATA 400,100,100,300,400,300,150,20 
0,200,200 

206 DATA 150,150,200,250 

2 07 FOR X=1 TO 1 4 

2080 READ C(X] 

2090 NEXT X 

2100 DATA 175,150,175,200,120,200,175,90 
,17 5,150 

2110 DATA 150,175,120,150 

2120 FOR X = 1 T 1 4 

213 READ A ( X ) 

2140 NEXT X 

215 DATA 4,1,1,3,4,3,1,2,2,2 

216 DATA 1 ,2,2,2 

2170 APP=400 s WW=1 5 i QQ=30 s RR=31 00 

218 RETURN 

2190 REM ****************#******** 

2200 REM INITIALIZATION 
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2 210 CLS 

2220 RANDOMIZE VAL( RIGHT$ (TIMES , 2 ] ] 

2230 DIM A[14) f C(14),D(14) 

2240 C=1 s FP=6 s P NT=0 s NC=0 s CP=0 

2250 AM=0 s RP=0 : APP=0 

2260 NUM = : R EM NUMBER OF MOVES 

2270 ENG=1Q0sBRAK=10iTRAV=0§DIST=0 

2280 E F L A G = 

2290 X=0 

2300 RETURN 

2310 REM ************************* 

232 REM DELAY 

2330 FOR = 1 TO 1 : N EXT 

2340 RETURN 
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Up, Op 
and Away 



Flight simulators are probably the most entertaining type of simu- 
lation programs. Most of us will never learn to fly, but would some- 
how like to enjoy the experience. A flight simulation program gives 
you a chance to find out a little of how it feels to fly without ever leav- 
ing the ground. 

The main challenge facing a bilot is to keep on top of a number 
of different elements that are changing all at once. Ignore any one of 
them — like the angle at which the plane is flying, or the amount of 
fuel you have left — for too long, and your plane may well drop out of 
the sky. Although this program does not occur in real time, so you'll 
have a chance to think about the choices facing you before you act, 
you'll still find it a fairly challenging and frustrating simulation to 
master. 

Even getting the plane off the ground is not particularly easy the 
first few times you run the program. Get it in the air, and you'll have 
to fight every second to keep it there. 

And once you try to land . . . 

Crashing during a landing attempt is a trifle inconvenient in a 
real plane. The moment you try and land 150 feet above the ground, 
you'll give thanks that you are only flying your computer. 

Mastering the Controls 

This simulation is the most complex in the book. It will take you 
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a little longer to learn than the others. This longer learning time will, 
however, be amply repaid as you're sure to find this program by far 
the most satisfying to run. FLIGHT SIMULATION contains another 
bonus that makes it very worthwhile to run. Your flight is automati- 
cally recorded, so that at any moment, while you're still in the air, you 
can tell the computer you want to see the whole of the current flight 
over from the beginning. It is very entertaining to watch your flight 
quickly unfolding again. The controls are handed back to you once 
you reach the point in the original flight where you asked the com- 
puter for a replay. 

Think of the flight as having three parts, each of which requires 
a different approach to the controls. Part one is the takeoff, part two 
is the actual flight, and part three is the landing. You'll become an ace 
pilot fairly quickly if you concentrate on mastering each flight sec- 
tion in turn. 

Whatever you do, don't give up, even after your twentieth at- 
tempt at landing has ended in disaster. The satisfaction you'll feel 
when you make your first perfect landing will more than compensate 
for all the frustration you've encountered in the learning process. 

This is what you'll see when you first run the program: 



HORIZON 




HEADING 

. N . 
. .9 , . 


*••*•**• 


•*••** . 


. . : 

W — X — E 

. . ! . . 

. s . 


RANGE : 


TIME .1 


: 2 26 


AIRSPEED 
> 

ALTIMETER 
> 

FUEL 


: 
! 
! 7 5 


DEG. 


ELEVATI ON : s 

> UNDERCARRIAGE 


DOWN < 



The line of asterisks in the top left corner shows the horizon 
line. This can tilt rather alarmingly from side to side as you turn the 
plane, or go to the bottom of the "windshield" as you climb, or to the 
top as you descend. It may take a short while in order for you to be 
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able to see this line as the horizon, but once you do, you'll find it con- 
veys a much better impression of being in the air than you might 
imagine. 

To the right of the horizon is your compass. The "@" shows the 
direction your plane is heading. You always start a flight facing due 
north, and must take off more or less in this direction. Your exact 
heading is shown further down the instrument cluster, on the same 
line as ALTIMETER, where you'll see "0 DEG.". 

The line of readings underneath the horizon and compass 
shows the distance you've covered so far (the "range"), the elapsed 
time of the flight, and the direction in which you must be flying in 
order to land — assuming that you get this baby up in the air, and keep 
it there for more than a few seconds ! You need to be within 12 degrees 
of this heading for a successful landing. The required heading 
changes from run to run, but does not change during a flight 

Shown underneath this is your airspeed, height above the 
ground (altimeter), and remaining fuel. The line of dashes ending in 
a "greater than" sign ( — >) indicates the magnitude of each of these 
readings. That is, the line gets longer as you go faster or climb higher. 

The elevation is the angle of your plane relative to the ground. 
When you enter a command, by touching a single key, a full-word ver- 
sion of the command appears in the position currently occupied by 
the series of dashes you can see after the elevation angle in the sam- 
ple run above. Finally, you are told whether or not your undercarriage 
is down. 

After a few inputs, the screen looks like this: 
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Your fuel has gone down slightly, your airspeed is up to 30, and 
the nose of the plane is pointed 20 degrees into the air. You can see, 
from the line down near the bottom right-hand corner of the screen, 
that NOSE UP is the full equivalent of the most recent command you 
entered. 

A little later, and we are in the air: 

HORIZON HEADING 



: . N . : 

: . .9 . . : 

. W--X--E : 

: . S . : 



s RANGE 1 : TIME 2 % 226 



.'AIRSPEED s 51 

! -- > 

sALTIMETERi 66 3 5 9 D EG . 

: -- > 

5 F U E L ; 6 6 
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: > UNDERCARRIAGE DOWN < • 



You need an airspeed of between 45 and 60, and an elevation 
greater than 10, in order to get off the ground. Let's try turning: 
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Note that the undercarriage is now up (which saves on fuel by 
decreasing drag on the plane) and the "horizon" is now sloping to 
down to the right, as the plane banks left It is now heading at 344 
degrees, and the @ symbol on the compass has moved to show the 
approximate direction in which the plane is flying. 
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In this "snapshot," taken a few moments later, we have started 
to bank to the right Our airspeed is up to 59, and we've continued to 
climb. However, the elevation has fallen, so the rate of climb will de- 
crease. As we level off, the horizon gradually tilts back to the hori- 
zontal: 
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As I said, there are an awful lot of things to keep track of. While 
concentrating on the direction in which I'm flying, I've been neglect- 
ing the plane's elevation— which has been slowly falling: 
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Suddenly I notice the nose is pointing downward — note how the 
horizon is now right at the top. I frantically try to climb: 
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However, too much is happening at once, with the inevitable re- 
sult: 

CRASH I 

CRASH I 

CRASH 1 

CRASH I 

CRASH ! 

CRASH I 

CRASH ! 

CR A S H I 

CRASH 1 

CRASH I 

CRASH ! 

C R A S H I 

CRASH I 

CRASH I 
C R A S H I 

CRASH I 
CRASH ! 
CRASH I 
CRASH ! 



The final picture is pretty bleak: 
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The commands you have at your disposal are: 



R This allows you to repeat the current flight from the beginning up 
to that point 

Space bar This is used for "throttle on," and increases your speed. 

. Use this to throttle back. 

Q To increase elevation. 

A To decrease elevation. 

Z To turn left 

M To turn right 

1 To change undercarriage from up to down, or from down to up. 

Remember, to take off your speed must be between 45 and 60, 
and your elevation must be greater than 10. To land, your undercar- 
riage must be down ( !), your heading must be within 12 degrees of the 
setting shown beneath the compass, you must be at 15 or below on 
your altimeter, and your speed must not be greater than 20. You'll 
find that, as in real life, landing is even harder than taking off. 

The complete FLIGHT SIMULATION listing is given in the next 
chapter. 
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The 

FLIGHT SIMULATION 
Listing 



Now it's time to earn your wings with this listing: 

1 REM FLIGHT SIMULATION 

20 RPT=0 

30 LD=I NT ( RND ( 1 ) *360 ] 

40 DIM E$ ( 1 000 ] : REM THIS HOLDS FLIGHT 

RECORD 

50 DIM A${7) ,C$(7) S REM THESE ARRAYS 

HOLD HORIZON AND COMPASS OUTPUT 
60 REM ************************** 
7 GOSUB 2 3 20 : R EM INITIALIZE 
80 I F CRASH = THEN GOSUB 820 : REM HORIZON 

/COMPASS 



90 GOSUB 50 : REM PRINTOUT 
100 I F C R A S H = 1 THEN END 

110 I F L A N D = 1 AND U F L A G = 1 THEN PRINT "WE 

LL DONE. A PERFECT LANDING! I " : E N D 

1 20 I F LA ND =1 AND U F L A G = THEN PRINT " Y 

UR WHEELS ARE UP" :G0SUB 1 7 80 : GOTO 9 

13 T=AIRSPEED: STALL =0 
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1 40 X$ = I NKEY $ 

150 I F X $ = " R " THEN RPT = 1 : GOTO 70 

1 60 I F RPT = 1 AND E$(CL0CK + 1]=»» THEN RPT 

= s GOTO 140 

170 I F RPT = 1 THEN X$ = E$ ( CLOCK + 1 ) 

1 80 IF X $ = » » THEN 1 40 

190 I F CLOCK <9 9 9 THEN E$ { CLOCK + 1 ] =X $ 

200 I F TAK E0V = 1 THEN ELEVATE = I NT ( ELEVATE 

+ RND ( 1 J * 2 - R N D ( 1 ] * 3 J 

2 1 I F AIRSPEED <3 THEN 290 

220 IF X $ = " Q " THEN E L E V A T E = E L E V A T E + 5 : EFL 

AG = 5 : I F ELEVATE >60 THEN S T A L L = 1 

230 IF X$=»A» THEN ELEVATE=ELEVATE-5 : EFL 

AG = -5 : I F ELEVATE<-70 THEN STA LL = -1 

240 I F S T A L L < >0 THEN GOSUB 1 640 

250 I F ALTIMETER <1 THEN 290 : R EM PREVENTS 

DRAMATIC TURNS ON THE GROUND 
260 I F X $ = » Z " THEN WA = WA-.5sANG = ANG-6sIF 

WA<-3 THEN WA=-3 
270 IF X$ = »M» THEN W A = W A + . 5 : A N G = A N G + 6 : I F 

WA >3 THEN WA = 3 
280 ANG = I NT { ANG + R ND ( 1 ) *2-RND ( 1 |*gj 

2 90 I F X$=" » THEN AIRSPEED=AIRSPEED+8.5 



300 I F X $ = » . " THEN A I R S P E E D = A I R S P E E D - 7 

310 AIRSPEED=AIRSPEED-ELEVATE/5 

320 IF UF LA G = 1 THEN A I R S P E E D = A I R S P E E D - 1 . 
5 : FUEL=FUEL- . 5 

330 I F AIRSPEED <0 THEN AIRSPEED=0 

3 40 I F AIRSPEED >400 THEN AI RSP E ED = 40 

350 IF X $ = » 1 " AND UF LA G = THEN UF LA G = 1 : G 

OT 3 7 

360 I F X $ = » 1 " AND UF LAG = 1 THEN U F L A G = 

370 FUEL=FUEL-[ABS(T-AIRSPEED]/10)-3.75 

380 I F F U E L<1 THEN GOSUB 17 80 

3 90 I F TAK E0V = 1 THEN 420 

400 I F ELEVATE>1 AND AIRSPEED >45 AND AI 
RSP EED <60 AND U F L A G = 1 THEN TAK E0V = 1 

410 I F TAKEOV=0 THEN ALTIMETER=0 ! GOTO 45 


420 I F LA ND =0 AND AIRSPEED<30 THEN ELEVA 
TE=ELEVATE-5:ALTIMETER=9*ALTIMETER/10 
430 ALTIMETER=ALTIMETER+INT{ ( (ELEVATE+.1 
]*AIRSPEED)+EFLAG*AIRSPEED/1000]/80 
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440 I F ALTIMETERO00 AND TAK E0V = 1 THEN A 
LTIMETER=ALTIMETER+AIRSPEED/30+ELEVATE 

450 IF ALTI M ET ER <0 THEN GOSUB 1 780 : REM 
CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE IT 

EASIER ( OR EVEN HARD ER ) TO LAND 
470 I F ALTIMETER>1 5 AND AIRSPEED >20 OR T 
A K E V = THEN 80 

480 I F ABS ( ANG-LD ] <1 3 OR ABS ( ANG + 360-LD ) 

<1 3 THEN LA ND = 1 : GOTO 8 

490 R EM ************************** 

500 REM PRINTOUT 

510 C LS 

520 PRINT " HORIZON" ;TAB( 20] HEADING" 



530 EV = I NT ( ELEVATE/1 J 
540 I F EV>2 THEN EV=2 
550 I F EV <-2 THEN EV = -2 

560 I F EVOO AND TAK E0V = 1 AND CRASH = TH 
EN GOSUB 19 20 

57 PRINT " : ■ I : " 



580 FOR J = 1 T 7 

590 PRINT » : " ; A $ [ J ) ; " : » ; C $ (J ) ; » : » 

600 A $ (J J = " " 

61 NEXT J 

620 PRINT " : : " 



630 D I ST = D I ST + ABS [ ( C OS ( ELEVATE) ) *AIRSPEE 

D J/360 

6 40 CL0CK=CL0CK+1 

650 PRINT »:RANGE"INT(DIST*10]/10": TIME 
"INT(CL0CK]/10;":"LD 

6 6 PRINT " : ■ ■ • : 11 

67 PRINT ":AIRSPEED :"INT(AIRSPEED) 

6 80 PRINT ":";LEFT$(Q$ f INT[AIRSPEED/20)) 
; " > " 

690 PRINT » 1ALTIMETER1 " I N T ( ALTIMETER] f 

7 00 I F A N G < THEN PRINT TAB(19) ;360 + ANG" 
D EG . " 

710 I F A N G > = THEN PRINT T A B [ 1 9 ] ; A N G " D E G 

it 

7 20 MR = I NT [ ALTIMETER/30 ] I IF MR >20 THEN M 

R = 2 



730 PRINT " : " ; L E F T $ I Q $ f M R ) ; " > " 

740 PRINT " : F U E L :»INT{FUEL) 

750 PRINT ":" ;LEFT$[Q$ f 20-INT(FUEL/750]) 

1 " > " 

760 PRINT "i » 



77 PRINT ":ELEVATI0N:" ELEVATE": " ; ; G S U 
B 2S1 : PRI NT U $ 

780 IF U F L A G = 1 THEN PRINT 11 : " ; T A B ( 5 ) } " > 
UNDERCARRIAGE DOWN < : " 

7 90 I F UF LA G = THEN PRINT " : " ; T A B [ 6 ] ; 11 > 
UNDERCARRIAGE UP < s 11 

800 RETURN 

81 REM ************************** 

820 REM ASSIGN H R I Z N/ C M P A S S 

830 I F ABS ( I NT t WA+ . 5 ] ] =3 THEN GOSUB 980 

8 40 I F ABS [ I NT [ WA+ . 5 ) ) =2 THEN GOSUB 1070 



850 I F ABS ( I NT ( WA+ . 5 ] ] =1 THEN GOSUB 1160 

86 I F I NT ( WA+ . 5 ] =0 THEN GOSUB 1250 
870 REM NEXT TWO LINES USED TO 

GRADUALLY STRAIGHTEN UP WINGS 
880 I F WA >0 THEN WA = WA- . 2 
890 I F WA <0 THEN WA = WA+ . 2 
900 I F WA > . 2 THEN 1350 
910 FOR Z = 1 T 7 
920 M $ ( 8-Z] =A$ [ Z J 
930 N EXT Z 
940 FOR Z = 1 T 7 
950 A $ [ Z ] =M $ ( Z J 
960 NEXT Z 
97 GOTO 13 5 
980 REM WA=3 OR -3 
990 A$ ( 1 ) =" * » 

1000 A$[2]=" ** " 

1010 A$ ( 3 J =" ** " 

1020 A $ ( 4 ] = " ** " 

1030 A$(5)=" ** « 

1040 A$(6)=" ** " 
1050 A$(7]="** » 
1060 RETURN 
1070 REM WA=2 OR -2 
1 8 A $ (1 J = 11 " 
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1090 
1100 
1110 
1120 
1130 
1 1 40 
1150 
1160 
117 
1180 
1190 
1200 
1 21 
1220 
1230 
1240 
1 250 
1260 
127 
1280 
1290 
1300 
1310 
1320 
1 330 
1 340 
1350 



* * * 



$ * « 



OR -1 



****** 



A $ ( 2 ) = " 
A $ ( 3 J = " 
A $ [ 4 ) = " 
A$[5J=" *** 
A$(6]=» *** 
A $ ( 7 ) = " 
RETURN 
REM WA=1 
A $ [ 1 J = " 
A $ [ 2 ) = " 
A$[3)=" 
A $ ( 4 J = " 
A$(5]=»* 
A $ [ 6 ) = " 
A $ [ 7 J = " 
RETURN 
REM WA=0 
A $ [ 1 ) =» 
A $ [ 2 J = " 
A $ { 3 ] = " 
A $ ( 4 ) = " * 
A $ [ 5 ) = " 
A $ { 6 ] = " 
A $ ( 7 ) = " 
RETURN 

REM ********************** 

REM ASSIGN COMPASS STRINGS 



1360 


F2 


= A N G- 


F1 








137 


I F 


F2 <0 




THEN 


FA = 


I 


NT [ [ F2 + 37 5 ]/30 J 


1380 


I F 


F2 > = 





THEN 


FA 




I NT ( ( F2 + 1 5 ) /30 ) 


1390 


IF 


F A = 1 


2 


THEN 


FA 







140 


C $ 


t 1 ) = " 




. N . 


ii 






1 41 


I F 


F A = 1 


1 


THEN 


C$ 


( 


2)=" . 8: . . » : GOTO 


145 
















1420 


IF 


FA = 




THEN 


c$( 


2 


]=" . . " : GOTO 


1 45 
















143 


I F 


FA = 1 




THEN 


C$( 


2 


]=" . . : 6 . " : GOTO 


1 45 
















1 440 


C$ 


[ 2 ) = » 




. . : . 


88 

B 






1 450 


I F 


F A = 1 





THEN 


c $ 


[ 


3 ) = " . © : . . " : GOT 


1480 














1460 


I F 


F A = 2 




THEN 


C$( 


3 


) = " b b I ©. " : GOTO 


1 48 
















1 47 


C $ 


I 3 ] = " 




. . : 


Ii 

o a 
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1 480 
1510 
1490 
1510 
15 00 
1510 
1 540 
1520 
1 540 
1530 
1 540 

15 80 
1550 
1 5B 
1560 
158 
157 
1580 
1590 

16 
1610 
16 20 
16 30 
1 6 40 
1650 
16 6 
16 7 
16 8 

16 90 

17 00 
1710 
1720 
17 30 
1 740 
17 50 
17 60 
177 
17 8 
17 90 
1800 
1810 

1820 
1830 



I F F A = 9 THEN C$ ( 4) = 

I F FA=3 THEN C $ { 4 ] = 

C$(4]=» W--X--E" 

I F FA = 8 THEN C $ ( 5 ) = 

I F F A = 4 THEN C $ ( 5 ) = 

C $ t 5 ) = " „ a : 

I F FA = 7 THEN C $ ( 6 ) = 

I F F A = 6 THEN C $ [ 6 ] = 

I F F A = 5 THEN C $ [ 6 ] = " 



W@-X--E" s GOTO 
W--X-6E" s GOTO 

. © I ■ B 11 ! GOTO 
s b ! @ . " : G T 

. @ : . . " : GOTO 
. . @ . . " i G T 
. . : @ . " : GOTO 



C $ ( 6 ) = » » 

C $ [ 7 ) = " .S. " 

I F ANG>360 THEN ANG=ANG-360 

F 2 = A N G 

I F W>0 THEN W=W- . 4 
I F W<0 THEN W=W+ . 4 
RETURN 

REM STALL/FALL 

I F STALL=-1 THEN 17 10 

FOR J = 1 T 10 

PRINT TAB(J) j "YOU HAVE STALLED!" 
NEXT J 

AIRSPEED=AIRSPEED/4 
RETURN 

FOR J = 1 T 1 

PRINT TAB{J) ; "UNCONTROLLED DIVE! I " 
PRINT TAB(21-J] j" PULL UP! ! " 
N EXT J 

ALT I METER = 4* ALT I METER/ 5 
RETURN 

REM ************************** 

R EM CRASH 

CRASH=1 

ALTIMETER=0 

M $ = " * * *C R** A ** S* H* ! ! * 11 : R E M 

25 CHARACTERS LONG 

FOR J = 1 T 20 

PRINT TAB(J]; "CRASH!" 



1840 

1850 

186 

1 870 

1880 

1890 

190 

1910 

1920 

1930 

1 940 

1 40 

1950 

1960 

1 970 

1980 

1 9 90 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

216 

217 

218 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
CLIMB 



PRINT TAB[21-J)j" CRASH!" 

NEXT J 

FOR J=1 TO 7 

G = I NT ( RND ( 1 J *1 1 ) +1 

A$( J)=MID$(M$ f G,14] 

NEXT J 

RETURN 

REM *****«****««******#«**#»«# 

REM ADJUST HORIZON 

G$=" ":REM 14 SPACES 

ON EV + 3 GOSUB 1960,2020, 2070 ,2080,2 

RETURN 
REM E V = - 2 
FOR J=1 TO 4 
A $ [ J ] = A $ [ J + 3 ) 
N EXT J 

A$[5)=G$sA$[6j=G$gA$t7)=G$ 

RETURN 

REM EV = -1 

FOR J=1 TO 6 

A $ ( J ] = A $ ( J + 1 J 

NEXT J 

A $ ( 7 ) = G $ 

RETURN : REM EV=0 

REM EV=1 

FOR J=6 TO 1 STEP -1 

A $ ( J + 1 ] = A $ ( J ) 

NEXT J 

A $ [ 1 ) =G $ 

RETURN 

REM EV=2 

FOR J=4 TO 1 STEP -1 
A$ [ J+3 ) =A$ ( J ) 
NEXT J 

A$[1 )=G$:A$(2]=G$:A$ (3)=G$ 
RETURN 

REM ***#******#****»****##*#** 
REM INPUT INTO COMMAND NAME 

U$ = " " 

I F X$ = " » THEN U$ = 11 THROTTLE ON" 

I F X $ = " . " THEN U$ = 11 THROTTLE OFF" 

I F X $ = " Q " AND ALTIM ETER >0 THEN U$ = " 
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2 2 6 
NOSE 
227D 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 

21 
2360 

2370 
2380 
23 90 
2400 



Q" AND A LT I M ET ER = THEN U$ 



THEN 
THEN 
THEN 



U$="NOSE 

U$="BANK 
U$="BANK 



DOWN" 
LEFT" 
RIGHT" 



I F X $ 
UP " 

IF X $ = " A 
I F X $ = " Z 
I F X $ = " M 
RETURN 

REM ************************** 

REM INITIALIZATION 
C LS 

RANDOMIZE VAL( R I G H T $ (TIME$ , 2 } J 

Ql-ii "-REM 

CHARACTERS I N STRING 
U F L A G = 1 :REM UNDERCARRIAGE - 
1 - DOWN, - UP 
EF LAG = : R EM CLIMB RATE 
ANG = sTAKE0V = i LAND = 
AI RSP EED = 

D I S T = : REM DISTANCE COVERED < RANGE 



2410 ALTIM ETER = 

2420 ELEVATE = : REM ANGLE OF ELEVATION 
2430 WA = : REM 'WING ANGLE ; USED I N 

HORIZON PRINTOUT 
2440 FUEL=750:CRASH=0:F2=0:F1=0:REM 

FOR DIRECTION CHANGE/COMPASS ROUTI NE 
2450 CLOCK=0 : REM TIME 

246 X $ = » » 

247 RETURN 

2480 REM ALL TAKE-OFFS ARE INTO THE 

NORTH {SPEED 45-60 ; ELEVATION >10j 
2490 REM LANDING DIRECTION SHOWN 

BELOW COMPASS 
2500 REM YOU MUST BE WITHIN 1 2 DEGREES 
OF THIS FOR A SUCCESSFUL LANDING 



Appendix 




SPECIAL INSTRUCTIONS FOR COMMODORE PROGRAM- 
MERS: You'll note that many of the PRINT statements in the Com- 
modore 64 listings begin with three-letter codes within brackets, like 
this: [RED]. 

Do not type these in directly. These indicate the use of the Com- 
modore's number keys to control screen colors. (Note that each of 
the number keys also has a color marked on it.) 

For example, when you see [RED] in the listing, you should 
press the "CTRL" and the "RED" key— which is also the "3" key— at 
the same time. 



SPACE LANDING SIMULATION / Apple lie version 

10 REM SPACE LANDING SIMULATION I 
15 REM APPLE IIE/IIC VERSION 
20 GOSUB 8020 

30 REM ********************** 
40 REM STARTING VALUES 
50 FUEL = 200 + RND (1) * 40 
60 VELOCITY = RND (1) * 20 - 6 
70 HEIGHT = 500 - RND (1) * 10 
80 HOME 

90 PRINT " FUEL"; TAB ( 12)" VELOCITY"; T 
AB( 24)" HEIGHT" 
100 REM ********************* 

110 REM MAJOR CYCLE 

120 GOSUB 430 

130 IF FUEL < = THEN FUEL = : THRUST 

= 0: GOTO 170 

140 GET A$ 

150 IF A$ < "0" OR A$ > "9" THEN 140 

152 P = INT (HEIGHT / 2 * 1.25) 

155 IF P < 1 THEN P = 1 

- 157 IF P > 255 THEN P = 255 

159 D = 150s GOSUB 8000 

160 THRUST = VAL (A$) + .1 
170 FUEL = FUEL - THRUST 
180 FLAG = THRUST - 2 

190 THRUST = 

200 HEIGHT = HEIGHT + VELOCITY + FLAG / 4 

210 VELOCITY = VELOCITY + FLAG 

220 IF HEIGHT < = 10 THEN 240 

230 IF HEIGHT > 10 THEN 120 

240 IF VELOCITY > - 9 AND VELOCITY < 5 

THEN 290 
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250 GOSUB 410 

260 GOSUB 5000: PRINT "YOU HAVE CRASHED 
INTO THE SURFACE. . ." 
270 IF HEIGHT > THEN HEIGHT = - HEIGH 

T 

280 GOTO 320 

290 GOSUB 5500; PRINT "YOU HAVE LANDED S 
AFELY!" 

300 FLASH i PRINT "YOUR SKILL RATING IS 
" ; INT ( - 1000 * FUEL / (VELOC 
ITY - HEIGHT)) 
305 NORMAL 
310 HEIGHT = 
320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READINGS WER 
E:" 

340 PRINT " FUEL"; TAB( 12)" VELOCITY"; 
TAB( 24)" HEIGHT" 
350 GOSUB 430 
360 GOSUB 410 

370 IF HEIGHT > = THEN END 
380 IF HEIGHT < THEN PRINT "NEW CRATE 
R ON MOON "; INT ( ABS (100 * ( 

HEIGHT + .2) / 3)) / 100;" METERS DEE 

P ! " 

390 PRINT "YOUR SKILL RATING IS "; INT ( 
100 * FUEL / (VELOCITY - HEIGHT 
)) 

400 END 

410 PRINT " 



415 GOSUB 5200 
420 RETURN 

430 PRINT INT (100 * FUEL) / 100; 
440 PRINT TAB( 12) - INT (100 * VELOCI 
TY) / 100; 

450 IF HEIGHT > = THEN PRINT TAB( 2 
4) INT (100 * HEIGHT) / 100 
460 IF HEIGHT < THEN PRINT 
470 RETURN 
5000 P = 250:D = 255 
5010 GOSUB 8000 
5020 RETURN 
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5200 P = 150-.D = 100 
5210 GOSUB 8000 
5220 RETURN 
5500 P = 5:D = 10 
5510 GOSUB 8000 
5520 P = P + 15 

5530 IF. P < 250 THEN GOTO 5510 
5540 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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MONTE CARLO DEMONSTRATION / Apple lie version 

10 REM MONTE CARLO DEMONSTRATION 
15 REM APPLE IIE/IIC VERSION 

20 GOSUB 370: REM INITIALISE 

30 REM ******************** 

40 REM MAJOR CYCLE 

50 GOSUB 100: REM PRINT 

60 IF P = EP AND Q = EQ THEN PRINT : PR 

INT "DEMONSTRATION OVER": END 

70 GOSUB 230: REM GENERATE MOVE 

80 GOTO 50 

90 REM ******************** 



100 


REM PRINTOUT 






110 


A$(P,Q) 


= "0" 






120 


M = M + 


1 






130 


VTAB 5 








140 


PRINT 


"MOVE: ";M 






150 


FOR X 


= 1 TO 10 






160 


FOR Y 


= 1 TO 10 






170 


PRINT . 


A$(X,Y);" "; 






180 


NEXT Y 








190 


PRINT 








200 


NEXT X 








210 


RETURN 








220 


REM ************* 






230 


REM GENERATE MOVE 






240 


A$(P,Q) 


_ it it 






250 


G = 








260 


T = INT ( RND (1) * 4) + 1 






270 


ON T GOSUB 310,320,330,340 






280 


IF G = 


THEN 260 






290 


IF G = 


1 AND RND (1) > .5 


THEN 


260 


300 


RETURN 






310 


IF P > 


1 THEN P = P - 1:G = 


= G + 


1: R 


ETURN 










320 


IF P < 


10 THEN P = P + 1:G 


= G + 


1: 


RETURN 








330 


IF Q > 


1 THEN Q = Q - 1 : G = 


= G + 


1: R 


ETURN 










340 


IF Q < 


10 THEN Q = Q + 1 : G 


= G + 


1 : 


RETURN 








350 


RETURN 
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360 


- rem ********** 


370 


REM INITIALISE 


380 


HOME 


400 


DIM A$(10,10) 


410 


FOR X = 1 TO 10 


420 


FOR Y = 1 TO 10 


430 


A$ ( X , Y ) = "." 


440 


NEXT Y 


450 


NEXT X 


460 


PRINT : PRINT 


470 


PRINT "ENTER FIRST 


(LESS THAN 10)" 


480 


INPUT P 



START CO-ORDINATE 



490 IF P < 1 OR P > 10 THEN 480 v 

500 PRINT "ENTER SECOND START CO-ORDINAT 
E (LESS THAN 10)" 

510 INPUT Q 

520 IF Q < 1 OR Q > 10 THEN 510 

530 PRINT : PRINT 

540 PRINT "ENTER FIRST END CO-ORDINATE ( 
LESS THAN 10)" 

550 INPUT EP 

560 IF EP = P OR EP < 1 OR EP > 10 THEN 
550 

570 PRINT "ENTER SECOND END CO-ORDINATE 
(LESS THAN 10)" 

580 INPUT EQ 

590 IF EQ = Q OR EQ < . 1 OR EQ > 10 THEN 
580 

600 A$(P,Q) = "0" 

610 A$(EP,EQ) = "X" 

615 HOME 

620 RETURN 
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CELL CLASH SIMULATION / Apple lie version 

10 REM SIMULTANEOUS EQUATIONS 

12 REM APPLE IIE/IIC VERSION 

20 HOME 

30 GOSUB 8020 

40 HS = 

45 SD = RND (1) 

50 FD = RND (0) 

60 PRINT : PRINT "DECAY FACTOR IS " ; FD 
70 GOSUB 550 
80 HOME 

90 PRINT : PRINT 

100 PRINT "ENTER NUMBER OF CELL X TO 
START (LESS THAN 40) 

110 INPUT CP: IF CP < 1 OR CP > 39 THEN 
110 

120 PRINT : PRINT 

130 PRINT "WE HAVE ";CP;" X CELLS" 
140 PRINT : PRINT 

150 PRINT "ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40) 

tt 

160 INPUT EP: IF EP < 1 OR EP > 39 THEN 
160 

170 HOME : VTAB 5: PRINT "PLEASE STAND B 
Y ft 

180 GOSUB 550: HOME 
190 DA = 1 

200 IF CP > EP / FD THEN CP = EP / FD 

210 PRINT " " 

220 PRINT "TIME ELAPSED: " ; DA 
230 PRINT INT (CP);" CELL X" 
240 PRINT INT (EP);" CELL Y" 
250 REM ********************* 
260 REM MAJOR CYCLE 
270 GOSUB 550 
280 DA = DA + 1 

290 PRINT " " 

300 PRINT "TIME ELAPSED: " ; DA 
305 P = 100:D = 50: GOSUB 8000 
310. IF CP > EP / FD THEN CP = EP / FD 
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320 REM EQUATIONS FOLLOW; MODIFY PARTS 
OF THEM TO SEE WHAT HAPPENS 

330 CP = CP + ((8 * CP - CP * EP / 3) * F 
D) 

340 EP = EP + ((4 * EP - EP * CP) * .01) 



350 


PRINT 


T1Tm / nn \ ft nnT t v ?? 

INT (CP) ; CELL X 


360 


PRINT 


INT (EP);" CELL Y" 


370 


IF EP 


< 2 OR CP < 2 THEN 410 


380 


GOSUB 


550 


390 


GOTO 


280 


400 


REM 


;!«##>!«***************** 


410 


IF DA 


> HS THEN HS = DA 


420 


PRINT 


: PRINT 


430 


PRINT 


"YOUR CELL CLASH SIMULATION 


RVIVED" 





440 PRINT "FOR " ; DA ; " TIME PERIODS" 

450 PRINT " 

u 

460 PRINT "THE BEST SURVIVAL TIME SO FAR 
IS ";HS 

470 GOSUB 550 

480 PRINT " 

!t 

490 PRINT "DO YOU WANT A NEW RUN (Y OR N 
) ?" 

500 GET A$ 

510 IF A$ < > "Y" AND A$ < > "N" THEN 
500 

520 IF A$ = "Y" THEN HOME : GOTO 60 
530 PRINT "OK": PRINT : PRINT :P = 200:D 
= 250: GOSUB 8000: END 
540 REM ********************** 

550 FOR, J = 1 TO 2000: NEXT J 
560 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
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8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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LIFE / Apple lie version 

10 REM CONWAY'S LIFE SIMULATION 
15 REM APPLE IIE/IIC VERSION 
20 REM DEFINED INITIAL COLONY 
30 GOSUB 460: REM INITIALISE 
40 REM ********************* 
50 REM MAJOR CYCLE 
60 GE = GE + 1 

70 GOSUB 290: REM PRINTOUT 
GOSUB 110 REM EVOLVE 
GOTO 60 
REM ******************** 

REM EVOLVE 



80 
90 
100 
110 
120 
130 



FOR 



150 

+ 1 
160 
170 

+ 1 
180 
190 
200 

+ 1 
210 
220 

+ 1 
230 



X = 2 


TO 12 










Y = 2 


TO 12 























A$(X - 


1 , Y - 


1) = 


"X" THEN 


C 




A$(X - 


1,Y) = 


" }[" 


THEN C = 


C 


+ 


A$(X - 


1,Y + 


1) = 


"X" THEN 


C 




A$(X,Y 


- 1) = 


ll^lt 


THEN C = 


C 


+ 


A$(X,Y 


+ 1) = 


II ^ It 


THEN C = 


C 


+ 


A$(X + 


1 S Y - 


1) = 


"X" THEN 


C 




A$(X + 


1,Y) = 


II ^11 


THEN C = 


C 


+ 


A$(X + 


1,Y + 


1) = 


"X" THEN 


C 





= c 

1 
c 



IF A$(X,Y) = "X" AND C < > 2 AND C 
< > 3 THEN B$(X,Y) = " " 
240 IF A$(X,Y) = " " AND C = 3 THEN B$C 
,Y) = "X" 
250 NEXT Y 
260 NEXT X 
270 RETURN 

280 REM ********************* 
290 REM PRINTOUT 
300 HOME 

305 PZ = 200:DZ = 150: GOSUB 8000 
310 PRINT 

320 PRINT TAB( 4) "GENERATION " ; GE 
330 PRINT 
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340 FOR X = 2 TO 12 

350 FOR Y = 2 TO 12 

360 A$(X,Y) = B$(X,Y) 

370 PRINT A$(X,Y); 

380 NEXT Y 

390 FOR Y = 12 TO 2 STEP - 1 

400 PRINT A$(X,Y); 

410 NEXT Y 

420 PRINT 

430 NEXT X 

440 RETURN 

450 REM ******************** 

460 REM INITIALISATION 

470 HOME 

480 GOSUB 8020 

500 DIM A$(13,13),B$(13,13) 

510 VTAB 4: PRINT TAB( 11)"PLEASE STAND 

BY. . ." 

520 FOR X = 1 TO 13 

530 PRINT 14 - X; " "; 

540 FOR Y = 1 TO 13 

550 REM FILL ARRAY WITH BLANKS 

560 A$(X,Y) = " " 

570 B$(X,Y) = " " 

580 NEXT Y 

590 NEXT X 

600 READ D: IF D = 99 THEN 630 

610 READ E:A$(D,E) = "X":B$(D,E) = "X" 

620 GOTO 600 

630 GE = 

640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 

660 DATA 7,7 

670 DATA 8,6,8,8,9,5,9,9 

700 DATA 99 

8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 11, DZ: CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 

8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
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POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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ROBOT LOGO / Apple lie version 



i nn 
1 UU 


REM 


ROBOT LOGO 


1 A C 

1 05 


REM 


APPLE IIE/IIC VERSION 


i i a 
i 1 U 


G0SUB 1730: REM INITIALISE 


i o a 

120 


GOTO 


490 


i o a 

130 


REM 




i / a 

140 


REM 




ICO 

150 


REM 




1 60 


REM 




170 


REM 




1 80 


REM 




i a a 

190 


REM 




1 A A 

200 


REM 




Q 1 A 

210 


REM 




220 


REM 




230 


REM 




240 


REM 




OCA 

250 


n n if 

REM 




1 A A 

zoU 


T) T? \X 

REM 




1 "7 A 
270 


REM 




O O A 
ZOU 


REM 






REM 




jUU 


REM 




o i n 
310 


REM 




320 


DATA 




O O A 

330 


REM 




O / A 

340 


REM 


INT UX,AX 


^ n 

jjU 


UX = 


INT (UX + .5):AX = INT (AX 


c \ 




Q £. A 

3o0 


RETURN 


O 1 A 
J / U 


REM 




Q Q A 


REM 


PRINT OUT 


O A A 

390 


HOME 




/. A A 

400 


PRINT 


"STEP ";PSN; ,f > ";A$(PSN) : 


AT T 1 

N 1 






/. 1 A 

410 


FOR J 


= 1 TO DE 


420 


FOR K 


= 1 TO BR 


430 


PRINT 


Z$(J,K); 


440 


NEXT 


K 


450 


PRINT 




460 


NEXT 


J 


470 


RETURN 
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480 


REM 






490 


REM 


READ PROGRAM 






500 


COUNT 


= COUNT 


+ 1 






510 


READ 


A$(COUNT) 






520 


IF A$(COUNT) 




THEN 550 




530 


IF COUNT < 20 


THEN 


500 




540 


REM 






550 


REM 


EXECUTE 


PROGRAM 




560 


PSN = 


0: REM 


PRIGRAM STEP NUMBER 




570 


PSN = 


PSN + 1 








580 


IF PSN = 21 THEN 580: REM END 




590 


FLAG = 











600 


M$ = A$(PSN) 








610 


IF M$ 


= "*" THEN 610: REM END 




620 


N$ = 


LEFT$ (M$,2) 






630 


IF N$ 


_ n g iji n 


THEN 


560: REM START 


AG 


AIN 












640 


IF N$ 


_ ttp^it 


THEN 


GOSUB 380: REM 


P 


RINTOUT 










650 


IF N$ 


= "FO" 


THEN 


FLAG = 1 




660 


IF N$ 


= "BA" 


THEN 


FLAG = 2 




670 


IF N$ 




THEN 


FLAG = 3 




680 


IF N$ 


= "HO" 


THEN 


FLAG = 4 




690 


IF N$ 


= "CL" 


THEN 


FLAG = 5 




700 


IF N$ 


= "GO" 


THEN 


FLAG = 6 




710 


IF N$ 


= "RA" 


THEN 


FLAG = 7 




720 


IF N$ 


= "RE" 


THEN 


FLAG = 8 




730 


IF N$ 


= "EN" 


THEN 


FLAG = 9 




740 


IF N$ 


= "FA" 


THEN 


FLAG = 10 




750 


ON FLAG GOSUE 


; 780, 


940,1000,1160,1220 


, 1260, 1400, 1460, 1530, 1580 




760 


GOTO 


570 








770 


REM 






780 


REM 


FORWARD 






790 


M$ = 


MID$ (M$,4) 






800 


IF ASC (M$) 


= 87 


THEN M$ = MID$ 


(M 


$ s 6) 












810 


F$ = " 


F" 








820 


NUM = 


VAL (M$) 






830 


FOR E 


= 1 TO 


NUM 






840 


IF UX 


< 1 OR 


UX > 


DE THEN 880 




850 


IF AX 


< 1 OR 


AX > 


BR THEN 880 




860 


Z$(UX,AX) = T$ 
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870 REM DELETE THE '*2' AT THE END OF T 
HE NEXT TWO LINES IF BETTER ON 
YOUR SYSTEM 
880 IF F$ = "F" 
X + AC * 2 

890 IF F$ = "B" 
X - AC * 2 
900 GOSUB 340 
NEXT E 
RETURN 
REM 
REM 



THEN UX = UX + UP; AX = A 
THEN UX = UX - UP:AX = A 



910 
920 
930 
940 
950 M$ = 
960 IF 
$,3) 
970 F$ = 
980 
990 
1000 



BACK 
MID$ (M$,4) 
ASC (M$) = 75 THEN M$ = MID$ (M 



'B" 
GOTO 820 

REM ******************** 
REM TURN 
1010 M$ = MID$ (M$,4) 

1020 IF ASC (M$) = 78 THEN M$ = MID$ ( 
M$ s 3) 

1030 NUM = VAL (M$) 
1040 Y = INT ((NUM + 17.5) / 45) 

IF Y = OR Y = 8 THEN RETURN 



1050 
1060 
1070 



FOR J = 1 TO Y 

IF UP = - 1 AND AC = THEN AC = 



: GOTO 1130 

1080 IF UP = AND AC = 1 THEN UP = 1 : G 
OTO 1130 

1090 IF UP = 1 AND AC = THEN AC = - 1 
: GOTO 1130 

1100 IF UP = 
- 1: GOTO 1130 

1120 IF UP = 
ND AC = - 1 THEN UP = 

1130 NEXT J 

1140 RETURN 

1150 REM 

1160 REM HOME 
1170 AX = INT ((BR + .5) / 2) 
1180 UX = INT ((DE + .5) / 2) 
1190 UP = - 1 : AC = 0: REM FACES UP 



AND AC = - 1 THEN UP = 
- 1 AND AC = 1 OR UP = 1 A 
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1200 RETURN 

1210 REM ******************* 

1220 REM CLEAN 

1230 GOSUB 1870 

1240 RETURN 

1250 REM ******************* 

1260 REM GO X,Y 

1270 P = 

1280 P = P + 1 

1290 IF MID$ (M$,P,1) = "," THEN 1320 

1300 IF P < LEN (M$) THEN 1280 

1310 RETURN : REM ERROR 

1320 UX = VAL ( MID$ (M$,4,P - 1)) 

1330 AX = VAL ( RIGHT$ (M$, LEN (M$) - P 

)) 

1340 GOSUB 340 

1350 IF UX < 1 OR UX > DE THEN 1380 

1360 IF AC < 1 OR AC > BR THEN 1380 

1370 Z$(UX,AX) = R$ 

1380 RETURN 

1390 REM ******************** 

1400 REM RANDOM 

1410 AX = INT ( RND (1) * BR) 

1420 UX = INT ( RND (1) * DE) 

1430 Z$(UX, AX) = R$ 

1440 RETURN 

1450 REM ******************** 
1460 REM REPEAT 
1470 M$ = MID$ (M$,4) 

1480 IF ASC (M$) = 69 THEN M$ = MID$ ( 
M$ , 5) 

1490 RECOUNT = VAL (M$) 
1500 MARKER = PSN 
1510 RETURN 

1520 REM ******************** 

1530 REM END REPEAT 

1540 RECOUNT = RECOUNT - 1 

1550 IF RECOUNT > THEN PSN = MARKER 

1560 RETURN 

1570 REM ******************** 
1580 REM FACE 
1590 M$ = MID$ (M$,4) 

1600 ASC (M$) = 69 THEN M$ = MID$ (M$,3) 
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1610 NUM = VAL (M$) 

1620 Y = INT ((NUM + 17.5) / 45) * 45 



1 /■ O A 

1630 


IF Y = OR Y = 360 


THEN UP 


- 1 : 


AC = i 









1640 


IF Y = 45 THEN UP = 


- 1 : AC 


= 1 


1650 


IF Y = 90 THEN UP = 


0: AC = 1 




1660 


IF Y = 135 THEN UP = 


1:AC = 


1 


1670 


IF Y = 180 THEN UP = 


1 :AC = 





1680 


IF Y = 225 THEN UP = 


1 : AC = 


- 1 


1690 


IF Y = 270 THEN UP = 


0:AC = 


- 1 


1700 


IF Y = 315 THEN UP = 


- 1:AC 


= - 1 


1710 


RETURN 






1720 


REM 




1 "7 O (~\ 

1730 


REM INITIALISE 






1740 


HOME 






1770 


BR = 40 






1780 


DE = 24 






1790 


BR = BR - 1 






1800 


DE = DE - 3 






1810 


UP = - 1:AC = 0: REM 


STARTS 


FACING 


UP 








1820 


DIM A$(20): REM FOR 


ROBOT PROGRAM 


1830 


DIM Z$(DE,BR): REM 




DISPL 


AY 








1840 


T$ = "X": REM PUT SYMBOL FOR 


ROBOT' 



S TRAIL HERE, CHANGE IF YOU WIS 
H 

1850 AX = 0:UX = 

1860 REM FILL ARRAY WITH SPACES 

1870 FOR J = 1 TO DE 

1880 FOR K = 1 TO BR 

1890 Z$(J,K) = " " 

1900 NEXT K 

1910 NEXT J 

1920 RETURN 
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100 REM POINT-DUTY ROBOT 

105 REM APPLE IIE/IIC VERSION 

106 REM EXAMPLES IN TEXT MAY HAVE TO 
MODIFIED TO PRODUCE REQUIRED R 

ESULTS 

110 GOSUB 1730: REM INITIALISE 

120 GOTO 490 

130 REM ********************* 

140 REM 

150 REM 

160 REM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 

320 DATA "*" 

330 REM *********************** 

340 REM INT UX,AX 

350 UX = INT (UX + ,5):AX = INT (AX 
5) 

360 RETURN 

480 REM *********************** 

490 REM READ PROGRAM 

500 COUNT = COUNT + 1 

510 READ A$(COUNT) 

520 IF A$(COUNT) = THEN 550 

530 IF COUNT < 20 THEN 500 

540 REM *********************** 

550 REM EXECUTE PROGRAM 

560 PSN = 0: REM PRIGRAM STEP NUMBER 
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570 PSN = PSN + 1 

580 IF PSN = 21 THEN 580? REM END 
590 FLAG = 
600 M$ = A$(PSN) 

610 IF M$ = "*" THEN 610: REM END 
620 N$ = LEFT$ (M$ s 2) 

630 IF N$ = "ST" THEN 560: REM START AG 



AIN 
650 
660 
670 
680 
700 
710 
720 
730 
740 
750 



IF N$ = "F0" THEN FLAG = 1 
IF N$ = "BA" THEN FLAG = 2 
IF N$ = "TU" THEN FLAG = 3 
IF N$ = "HO" THEN FLAG = 4 
IF N$ = "GO" THEN FLAG = 5 
IF N$ = "RA" THEN FLAG = 6 
IF N$ = "RE" THEN FLAG = 7 
IF N$ = "EN" THEN FLAG = 8 
IF N$ = "FA" THEN FLAG = 9 
ON FLAG GOSUB 780,940,1000,1160,1260 
,1400,1460,1530,1580 
760 GOTO 570 

770 REM ******************* 
780 REM FORWARD 
MID$ (M$,4) 
ASC (M$) = 87 THEN M$ = MID$ (M 



790 M$ : 
800 IF 



VAL (M$) 
FOR E = 1 TO NUM 
IF UX < 1 OR UX > DE THEN 880 
OR AX > BR THEN 880 



IF AX < 1 



HPLOT AX,UX 
IF F$ = "F" THEN UX 



$.6) 
810 F$ = "F" 
820 NUM = 
830 
840 
850 
860 
880 
X + AC 

890 IF F$ = "B" 
X - AC 
900 GOSUB 340 
910 NEXT E 
915 HC0L0R= FC 
920 RETURN 

930 REM ******************** 

940 REM BACK 

945 HC0L0R= BC 

950 M$ = MID$ (M$,4) 



= UX + UP: AX = A 



THEN UX = UX - UP: AX = A 



189 



Apple lie 

960 IF ASC (M$) = 75 THEN M$ = MID$ (M 

$,3) 
970 F$ = "B" 
980 GOTO 820 

990 REM ******************** 
1000 REM TURN 
1010 M$ = MID$ (M$,4) 

1020 IF ASC (M$) = 78 THEN M$ = MID$ ( 
M$,3) 

1030 NUM = VAL (M$) 

1040 Y - INT ((NUM + 11.25) / 22.5) 
1050 IF Y = OR Y = 16 THEN RETURN 
1060 FOR J = 1 TO Y 

1065 IF UP = - 2 AND AC = OR UP = 2 A 
ND AC = 2 THEN AC = 1 : GOTO 113 


1070 IF UP = - 2 AND AC = 1 THEN AC = 2 
: GOTO 1130 

1075 IF UP = - 2 AND AC = 2 OR UP = A 
ND AC = - 2 THEN UP = - 1: GOTO 
1130 

1080 IF UP = - 1 AND AC = 2 OR UP = 1 A 
ND AC = - 2 THEN UP = 0: GOTO 
1130 

1085 IF UP = AND AC = 2 OR UP = 2 AND 
AC = - 2 THEN UP = 1: GOTO 113 


1090 IF UP = 1 AND AC = 2 THEN UP = 2: G 
OTO 1130 

1095 IF UP = 2 AND AC = 1 THEN AC = 0: G 
OTO 1130 

1100 IF UP = 2 AND AC = THEN AC = - 1 
: GOTO 1130 

1105 IF UP = 2 AND AC = - 1 THEN AC = 
— 2 • GOTO 1130 

1110 IF UP = - 1 AND AC = - 2 THEN UP 
= - 2i GOTO 1130 

1115 IF UP = - 2 AND AC = - 2 THEN AC 
= - 1: GOTO 1130 

1120 IF UP = - 2 AND AC = - 1 THEN AC 
= 

1130 NEXT J 
1140 RETURN 
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1150 REM ******************* 

1160 REM HOME 

1170 AX = INT ((BR + .5) / 2) 

1180 UX = INT ( (DE + .5) / 2) 

1190 UP = - 2 : AC = 0: REM FACES UP 

1200 RETURN 

1210 REM ******************* 
1220 REM CLEAN 
1230 GOSUB 1870 
1240 RETURN 

1250 REM ******************* 
1260 REM GO X 9 Y 

1270 P = 
1280 P = P + 1 

1290 IF MID$ (M$,P,1) = "," THEN 1320 
1300' IF P < LEN (M$) THEN 1280 
1310 RETURN : REM ERROR 
1320 UX = VAL ( MID$ (M$,4,P - 1)) 
^1330 AX = VAL ( RIGHT$ (M$, LEN (M$) - P 

1340 GOSUB 340 

1350 IF UX < 1 OR UX > DE THEN 1380 
1360 IF AC < 1 OR AC > BR THEN 1380 
1370 HPLOT AX,UX 
1380 RETURN 

1390 REM ******************** 

1400 REM RANDOM 

1410 AX = INT ( RND (1) * BR) 

1420 UX = INT ( RND (1) * DE) 

1430 HPLOT AX,UX 

1440 RETURN 

1450 REM ******************** 
1460 REM REPEAT 
1470 M$ = MID$ (M$,4) 

1480 IF ASC (M$) = 69 THEN M$ = MID$ ( 
M$,5) 

1490 RECOUNT = VAL (M$) 
1500 MARKER = PSN 
1510 RETURN 

1520 REM ******************** 

1530 REM END REPEAT 

1540 RECOUNT = RECOUNT - 1 

1550 IF RECOUNT > THEN PSN = MARKER 
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1560 RETURN 

1570 REM ******************** 
1580 REM FACE 
1590 M$ = MID$ (M$,4) 

1600 IF ASC (M$) = 69 THEN M$ = MID$ ( 
M$,3) 

1610 NUM = VAL (M$) 

1620 Y = INT ((NUM + 11.25) / 22.5) * 22 
.5 



1630 


IF 


Y 


= 


OR Y = 360 THEN UP = 




2: 


AC = 














1635 


IF 


Y 


_ 


22.5 THEN UP = - 2 : AC = 


1 




1640 


IF 


Y 


= 


45 THEN UP = - 2:AC = 2 






1645 


T TP 

lr 


v 
I 




A7 R THTTM TTP — — 1 • AC, = 


2 




1650 


IF 


Y 




90 THEN UP = OsAC = 2 






1655 


IF 


Y 




112 THEN UP = Is AC = 2 






1660 


IF 


Y 




135 THEN UP = 2;AC = 2 






1665 


IF 


Y 




157.5 THEN UP = 2:AC = 1 






1670 


IF 


Y 




180 THEN UP = 2; AC = 






1675 


IF 


Y 




202.5 THEN UP = 2: AC = . 


— 


1 


1680 


IF 


Y 




225 THEN UP = 2: AC = - 


2 




1685 


IF 


Y 




247.5 THEN UP = 1:AC = 


- 


2 


1690 


IF 


Y 




270 THEN UP = 0;AC = - 


2 




1695 


IF 


Y 




292.5 THEN UP = - 1 : AC 






2 

1700 


IF 


Y 




315 THEN UP = - 2:AC = 




2 


1705 


IF 


Y 




337.5 THEN UP = - 2:AC 






1 

1710 


RETURN 








1720 


REM 


********************* 






1730 


REM 


INITIALISE 






1735 


HGR 


sBC = OsFC = 3 






1740 


HOME 










1750 


COLOR= 


3 






1770 


BR 




279 






1780 


DE 
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1790 


BR 




BR 


- 1 







1800 DE = DE - 3 

1810 UP = - 2:AC = 0: REM STARTS FACIN 
G UP 

1820 DIM A$(20): REM FOR ROBOT PROGRAM 
1830 FOR XP = 1 TO 20s PRINT : NEXT XP 
1920 RETURN 
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10 REM CONNECT FOUR 

12 REM APPLE IIE/IIC VERSION 

15 REM A. W. PEARSON 

20 GOSUB 8020 

30 HOME 

40 VTAB 8: HTAB 14: PRINT "CONNECT FOUR" 
50 GOSUB 5000 
70 VTAB 12 

80 PRINT "ENTER YOUR MOVE AS A NUMBER BE 
TWEEN" 

90 PRINT "1 AND 8, ENTER FOR A NEW GAM 
E . . . " 

100 FOR F = 1 TO 1000: NEXT F 
110 DIM A$(10,10),B(10,2) 

120 FLAG = 

140 C$ = "*":H$ = "@": REM *=COMPUTER, @ 
=PLAYER 
150 FOR F = 1 TO 8 
160 B(F,1) = 6 
170 NEXT F 
180 FOR F = 1 TO 6 
190 FOR G = 1 TO 8 
200 A$(F,G) = "." 
210 NEXT G 
220 NEXT F 
230 REM 

240 REM ACCEPT HUMAN MOVE 
250 GOSUB 430 

260 PRINT : PRINT "YOUR MOVE..." 

270 INPUT A 

280 IF A = THEN RUN 

290 IF A < 1 OR A > 8 THEN 270 

300 L = 

310 IF A$(L + 1,A) < > "." OR L = 6 THE 
N 340 
320 L = L + 1 
330 GOTO 310 
340 IF L = THEN 270 
350 A$(L,A) = H$ 
360 B(A,1) = B(A,1) - 1 
370 GOSUB 430 
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380 GOSUB 560 

390 GOSUB 430 

400 GOTO 260 

410 REM ************************ 

420 REM PRINT BOARD 

430 HOME 

435 P = 200:D = 50: GOSUB 8000 

440 FOR F = 1 TO 6 

450 FOR G = 1 TO 8 

460 PRINT A$(F S G); 

470 NEXT G 

480 PRINT 

490 NEXT F 

500 PRINT "12345678" 

510 PRINT 

520 IF FLAG = 1 THEN PRINT "I 
HAVE WON!!": GOSUB 5200: END 

530 RETURN 

540 REM ************************* 

550 REM COMPUTER MOVES 

560 PRINT "MY MOVE. . ." 

570 MV = 

580 FOR F = 1 TO 8 

590 B(F,2) = 

600 NEXT F 

610 FOR F = 1 TO 8 

620 FOR X = - 1 TO 1 

630 FOR Y = - 1 TO 1 

640 IF B(F,1') = THEN 680 

650 IF A$(B(F,1) + X,F + Y) = OR A$(B 
(F,l) + X,F + Y) = "." THEN 680 

660 IF A$(B(F,1) + X,F + Y) = H$ THEN G 
OSUB 810 

670 IF A$(B(F,1) + X,F + Y) = C$ THEN G 
OSUB 910 
680 NEXT Y 
690 NEXT X 
700 NEXT F 
710 PC = 
720 FOR F = 1 TO 8 

730 IF B(F,2) > PC THEN PC = B(F,2):N = 

F 
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740 NEXT F 

750 A$(B(N,1),N) = C$ 

760 B(N,1) = B(N,1) - 1 

770 N = 

780 PC = 

790 RETURN 

800 REM ************************* 

810 MV = 2 
820 Ml = MV 

830 IF A$(B(F,1) + (X * 2),F + (Y * 2)) 
= H$ THEN MV = MV + 10 
840 IF A$(B(F,1) - X,F - Y) = H$ THEN MV 
= MV + 20 

850 IF MV < > Ml + 10 THEN 870 
860 IF A$(B(F,1) + (X * 3),F + (Y * 3)) 
= H$ THEN MV = MV + 1000 
870 B(F,2) = B(F,2) + MV 
880 Ml = 
890 RETURN 

900 REM ************************** 
910 MV = 2 
920 Ml = MV 

930 IF A$(B(F,1) + (X * 2),F + (Y * 2)) 
= C$ THEN MV = MV + 9 
940 IF A$(B(F,1) - X,F - Y) = C$ THEN MV 
= MV + 20 

950 IF MV < > Ml + 9 THEN 970 
960 IF A$(B(F,1) + (X * 3),F + (Y * 3)) 
= C$ THEN MV = MV + 2000:FLAG = 
1 

970 B(F,2) = B(F,2) + MV 

980 RETURN 

5000 P = 10:D = 25 

5010 GOSUB 8000 

5020 P = P + 10 

5030 IF P < 250 THEN GOTO 5010 
5040 GOSUB 8000 
5050 P = P - 10 

5060 IF P > 10 THEN GOTO 5040 

5070 RETURN 

5200 P = 200:D = 25 

5210 FOR TD = 1 TO 5 

5220 GOSUB 8000 
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5230 NEXT TD 
5240 RETURN 
5250 NEXT TL 
5260 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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QUEVEDO CHESS MACHINE / Apple lie version 

10 REM QUEVEDO CHESS MACHINE 
15 REM APPLE IIE/IIC VERSION 
20 GOSUB 1510: REM INITIALISE 
30 GOTO 60 

40 GOSUB 1320: REM PRINT BOARD 
50 GOSUB 110: REM COMPUTER MOVES 
60 GOSUB 1320 

70 GOSUB 1120: REM ACCEPT HUMAN MOVE 
80 GOTO 40 
90 END 

100 REM ************** 

110 REM COMPUTER MOVES 

120 IF QUIT = 1 THEN 1080 

130 Wl = WK 

140 REM ******** 

150 REM MOVE ONE 

160 MOVE = 1 

170 KM = INT (BK / 10) 

180 RM = INT (R / 10) 

190 IF ABS (KM - RM) > 3 THEN 330 

200 A(R) = 46 

210 X = INT (BK / 10):Y = INT (R / 10) 

220 IF X > Y THEN 270 

230 IF A(R - 10) < > 46 THEN 270 

240 IF A(R - 19) = BK OR A(R - 21) = BK 
OR A(R - 20) = BK THEN 270 

250 IF A(R - 11) = BK OR A(R - 9) = BK T 
HEN 270 

260 R = R - 10: GOTO 300 

270 IF A ( R + 10) < > 46 THEN A ( R ) = R: 
GOTO 330 

280 IF A ( R + 19) = BK OR A ( R + 21) = BK 
OR A(R + 20) = BK THEN A(R) = R 
: GOTO 330 
290 R = R + 10 
300 A(R) = ASC ("R") 
310 RETURN 
320 REM ******** 
330 REM MOVE TWO 
340 MOVE = 2 
350 KM = BK - 10 * KM 
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360 RM = R - 10 * RM 

370 IF ABS (KM - RM) < 2 THEN 480 

380 A(R) = 46 

390 IF R > 11 THEN IF (A(R - 12) = BK 
R A(R - 2) = BK OR A(R + 8) = B 
K) THEN A(R) = R: GOTO 480 

400 IF R > 11 THEN IF (A(R - 1) = BK OR 

A(R - 11) = BK OR A(R + 9) = B 
K) THEN A(R) = R: GOTO 480 

410 Y = BK - 10 * INT (BK / 10) 

420 Z = R - 10 * INT (R / 10) 

430 IF (Z = 1 OR Y > Z) AND A(R + 1) = 4 
6 THEN R = R + 1 : GOTO 450 

440 R = R - 1 

450 A(R) = ASC ("R") 

460 RETURN 

470 REM ********** 

480 REM MOVE THREE 

490 MOVE = 3 

500 WM = WK .- 10 * INT (WK / 10) 

510 BM = BK - 10 * INT (BK / 10) 

520 IF ABS (WM - BM) < 3 THEN 600 

530 IF A(WK - 1) < > 46 OR A(WK - 18) = 

BK OR A(WK - 2) = BK OR A(WK + 

8) = BK THEN 610 
540 IF A(WK - 11) = BK OR A(WK + 9) = BK 
OR A(WK - 22) = BK THEN 610 
550 A(WK) = 46 
560 WK = WK - 1 
570 A(WK) = ASC ("K") 
580 RETURN 

590 REM ************************ 

600 REM MOVES FOUR, FIVE AND SIX 

610 Z = ABS ( INT (BK / 10) - INT (WK / 

10)) 

620 IF Z = THEN 950 

630 IF 2 * INT (Z / 2) = Z THEN 790 

640 REM ********* 

650 REM MOVE FOUR 

660 MOVE = 4 

670 A(R) = 46 

680 IF A (R - 10) < > 46 THEN 720 
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690 IF A ( R - 9) = BK OR A ( R - 11) 
HEN 720 

700 IF A (R - 19) = BK OR A(R - 21) 
OR A(R - 20) = BK THEN 720 

710 R = R - 10: GOTO 760 

720 IF A ( R + 10) < > 46 THEN A(R) 
GOTO 790 

730 IF A ( R + 19) = BK OR A(R + 21) 
OR A ( R + 20) = BK THEN A(R) = ASC 
("R") : GOTO 790 

740 IF A ( R + 11) = BK OR A(R + 9) 
HEN A ( R ) = ASC ("R") : GOTO 790 

750 R = R + 10 
760 A(R) = ASC ("R") 
770 RETURN 
780 REM ********* 
790 REM MOVE FIVE 
800 MOVE = 5 
810 J = INT (BK / 10) 
820 K = BK - 10 * J 
830 L = INT (WK / 10) 
840 M = WK - 10 * L 

850 Z = 10: IF J < L THEN Z = - 10 
860 X = 1 : IF K < M THEN X = - 1 
870 A(WK) = 46 
880 Wl = WK 
890 WK = WK + Z + X 
900 G = ABS (WK - BK) 
910 IF G = 1 OR G = 9 OR G = 10 OR G = 1 
1 THEN WK = W1:A(WK) = 75: GOTO 
950 

920 A(WK) = ASC ("K") 

930 RETURN 

940 REM ******** 

950 REM MOVE SIX 

960 MOVE = 6 

970 A ( R ) = 46 

980 IF R > 11 THEN IF A(R - 12) = BK OR 
A ( R - 2) = BK OR A ( R + 8 ) = BK 

OR A ( R - 1) < > 46 THEN 1070 
990 IF R > 11 THEN IF ( A ( R - 1) = BK OR 



= BK T 
= BK 

= R: 
= BK 

= BK T 



199 



Apple lie 



A(R - 11) = BK OR A(R + 9) = B 

K) THEN 1070 
1000 Y = BK - 10 * INT (BK / 10) 
1010 Z = R - 10 * INT (R / 10) 
1020 IF (Z = 1 OR Y > Z) AND A(R + 1) = 
46 THEN R = R + 1: GOTO 1040 
1030 R = R - 1 
1040 A(R) = ASC ("R") 
1050 RETURN 
1060 REM ****** 
1070 GOSUB 1320 
1080 PRINT : PRINT 
1085 FLASH 

1090 PRINT "I CONCEDE TO THE MASTER" 

1095 NORMAL 

1100 GOSUB 5000: END 



1120 REM ACCEPT HUMAN MOVE 

1130 REM ENTER <Q' TO QUIT 

1140 MOVE = 

1145 P = 100:D = 100: GOSUB 8000 

1150 PRINT ">> MOVE TO (LETTER, NO.) "; 

1160 INPUT G$ 

1170 IF G$ = "Q" THEN 1280 

1180 IF LEN (G$) < > 2 THEN 1160 

1190 Z = ASC (G$) 

1200 IF Z < 65 OR Z > 72 THEN 1160 

1210 X = VAL ( RIGHT$ (G$,l)) 

1220 IF X < 1 OR X > 8 THEN 1160 

1230 A(BK) = 46 

1240 BK = 10 * (Z - 64) + X 

1250 IF A(BK) = ASC ("R") THEN QUIT = 1 

1260 A(BK) = ASC ("$") 

1270 RETURN 

1280 PRINT : PRINT 

1290 INVERSE : PRINT "THANKS FOR THE GAM 
it 

1295 P = 75:D = 150: GOSUB 8000 

1300 END 



1110 



REM 



1310 

1320 
1330 



REM *********** 
REM PRINT BOARD 
P = 200:D = 50: GOSUB 8000 
HOME 
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1340 PRINT : PRINT 

1350 IF MOVE > THEN PRINT "I USED MOV 
E ";MOVE 
1360 IF MOVE = THEN PRINT 
1370 PRINT : PRINT 
1380 PRINT TAB ( 10) "ABCDEFGH" 
1390 FOR J = 8 TO 1 STEP - 1 
1400 PRINT TAB( 8)J; M " ; 
1410 FOR K = 10 TO 8b STEP 10 
1420 PRINT CHR$ (A(J + K ) ) ; 
1430 NEXT K 
1440 PRINT " " ; J 
1450 NEXT J 
1460 PRINT 

1470 PRINT TAB ( 10) "ABCDEFGH" 
1480 PRINT : PRINT 
1490 RETURN 

1500 REM ************** 
1510 REM INITIALISATION 
1520 HOME 

1530 GOSUB 8020: REM INITIALISE SOUND 

1540 MOVE = 

1550 QUIT = 

1560 DIM A(130) 

1570 FOR J = 10 TO 80 STEP 10 

1580 FOR K = 1 TO 8 

1590 A(J + K) = 46: REM ASCII OF "." 
1600 NEXT K 
1610 NEXT J 

1620 REM ** PLACE PIECES ** 

1630 REM BLACK KING - HUMAN 

1640 BK = INT ( RND (1) * 3) + 1 

1650 BK = 10 * BK + BK + INT ( RND (1) * 

5) 

1660 A( BK ) = ASC ("$") 

1670 REM WHITE KING - COMPUTER 

1680 WK = INT ( RND (1) * 4) + 4 

1690 WK = 10 * WK + WK + INT ( RND (1) * 

2) 

1700 IF WK = BK THEN 1680 
1710 A(WK) = ASC ("K") 
1720 REM WHITE ROOK - COMPUTER 
1730 R = INT ( RND (1) * 4) + 4 
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50 

TO 5 

TO 50: NEXT TD 



1740 R = 10 * R + R + INT ( RND (1) * 2) 
1750 IF R = WK OR R = BK THEN 1730 
1760 IF ABS (R - BK) < 12 THEN 1730 
1770 A(R) = ASC ("R") 
1780 RETURN 
5000 P = 175:D = 
5010 FOR TL = 1 
5020 GOSUB 8000 
5030 FOR TD = 1 
5040 NEXT TL 
5050 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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10 REM WASHINGTON D.C. 

15 REM APPLE IIE/IIC VERSION 

20 GOSUB 1160: REM INITIALISE 

30 REM ********************* 

40 REM MAJOR CYCLE 

50 P = INT (P + (P * 273 / ML)) 

60 GOSUB 160: REM PRINTOUT 

70 GOSUB 510: REM CALCULATE 

80 REM NOW CHECK END GAME 

90 GOSUB 710: REM STANDARD OF LIVING 

100 GOSUB 780: REM INFLATION RATE 

110 GOSUB 840: REM UNEMPLOYMENT 

120 IF GAME = 1 THEN HOME : GOTO 890 

130 GOTO 50 

140 REM ********************** 
150 REM PRINTOUT 

160 HOME :PZ = 50:DZ = 150: GOSUB 8000 
170 PRINT "PRESIDENT ";A$;":" 
180 PRINT "YOUR ADMINISTRATION HAS BEEN 
IN POWER FOR ";Y + Z / 

4;" YEARS" 

190 PRINT " 



200 PRINT " STATE OF THE NATION 

210 PRINT " 



220 PRINT "POPULATION ";P 

230 PRINT "NO. UNEMPLOYED " ; INT ( U ) ; " 
"; INT (100 * U / P) ;"%" 

240 PRINT "CURRENT WAGES $ ";W0;" INFLA 
TION "; INT (IP) ;"%" 

250 PRINT "GOVT. EXPENDITURE LAST QTR. $ 
M ";GE 

260 PRINT "UNEMPLOYMENT COST $M "; INT ( 
10 * GU) / 10 

270 PRINT "INCOME FROM TAXES $M "; INT ( 
GI * 10) / 10 

280 PRINT "BUDGET SURPLUS (+) /DEFICIT( -) 
$M "; INT (BD * 10) / 10 
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290 PRINT "GROSS DOMESTIC PRODUCT $M "; 
INT (GDP * 10) / 10 

300 IF Y + Z / 4 > .5 THEN PRINT "CHANG 
E IN LIVING STANDARD "; INT ((2 

* ( (RGDP / AGDP) * 100) - 100) / 3); 

"%" 

310 PRINT " 



!l 

320 PRINT "PUBLIC INVESTMENT " ; Y ; " Q " ;Z 

;" $M " ; INT (IV * 10) / 10 

330 PRINT " 

»i 

340 PRINT "OK, PRESIDENT ";A$;'\ . ." 
350 INPUT "ENTER GOVERNMENT SPENDING $M 
";GE 

360 INPUT "ENTER COST OF WAGES $M ";WN 
370 PRINT "IS YOUR ADMINISTRATION IN FAV 
OR OF " 

380 PRINT : PRINT "IMMIGRATION THIS QUAR 
TER (Y/N)?" 
390 GET X$ 

400 IF X$ < > "Y" AND X$ < > "N" THEN 
390 

410 PRINT TAB( 20) "OK . . . " ; X$ 
420 FOR H = 1 TO 1000: NEXT H 
430 IF X$ < > "Y" THEN RETURN 
440 PRINT "HOW MANY IMMIGRANTS WILL YOU 
ALLOW INTO THE US?" 

450 INPUT M 
460 IF M < THEN 450 
470 P = P + M 
480 RETURN 
490 REM 

500 REM CALCULATIONS 
510 CN = CN + (CN * IP / 100) 
520 U = P * (GE + IV) / (CN * 10) + P * ( 
IP / 1000) 

530 GU = U * WN / ML: REM UNEMPLOYMENT C 
OST 

540 GI = (((P - U) * WN * .4) / ML) : REM 
INCOME FROM TAXES 

550 BD = BD + GI - GU - GE: REM BUDGET D 
EFICIT 
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560 AGDP = AGDP * (1 + (IP / 100)) 

570 GDP = GE + IV + ((P - U) * WN / ML) 

580 RGDP = GDP * 440 / AGDP 

590 IP = ((GE + IV) / CN * .1 + (WN / WO) 

/ 100) * 100 

600 IV = (CN * 67) / (IP * IP) 

610 WO = WN 

620 Z = Z + 1: IF Z > 4 THEN Z = 1:Y = + 
1 

630 RETURN 

640 REM ************************* 

650 REM CHECK BUDGET DEFICIT 

660 IF BD > - 1000 THEN RETURN 

670 GAME = 1 

680 FLAG = 1 

690 RETURN 

700 REM ************************* 

710 REM CHECK STANDARD OF LIVING 

720 IF Y < .75 THEN RETURN 

730 IF INT ((2 * ((RGDP / AGDP) * 100) 
- 100) / 3) > - 15 THEN RETURN 

740 GAME = 1 
750 FLAG = 2 
760 RETURN 

770 REM ************************** 

780 REM CHECK INFLATION RATE 

790 IF IP < 15 THEN RETURN 

800 GAME = 1 

810 FLAG = 3 

820 RETURN 

830 REM ************************** 
840 REM CHECK UNEMPLOYMENT 
850 IF INT (U * 100 / P) < 15 THEN RET 
URN 

860 GAME = 1 
870 FLAG = 4 
880 RETURN 

890 REM ************************** 
900 REM END OF THE GAME 
905 PZ = 200:DZ = 100: GOSUB 8000 
907 PZ - 100:DZ = 75s GOSUB 8000 
910 PRINT "PRESIDENT ";A$;", YOUR" 
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920 PRINT "ADMINISTRATION'S POOR ECONOMI 
C" 

930 PRINT "PERFORMANCE HAS LED TO AN UNA 
CCEPTABLE" 

940 IF FLAG = 1 THEN PRINT "BUDGET DEFI 
CIT" 

950 IF FLAG = 2 THEN PRINT "DROP IN THE 
STANDARD OF LIVING" 

960 IF FLAG = 3 THEN PRINT "RISE IN THE 
INFLATION RATE" 

970 IF FLAG = 4 THEN PRINT "RISE IN UNE 
MPLOYMENT" 

980 PRINT " AMONG OTHER THING 

S " 

990 PRINT " • 

. tt 

1000 PRINT "THE LACK OF CONFIDENCE IN YO 
UR" 

1010 PRINT "ADMINISTRATION IS SO BAD THE 
RE ARE" 

1020 PRINT "CALLS FOR YOU TO RESIGN. . .YO 

U STEP" 

1030 PRINT "ASIDE TO ALLOW THE VICE-PRES 
IDENT TO" 

1040 PRINT " OCCUPY THE OVAL OFFICE 

1050 FOR H = 1 TO 1000s NEXT H 

1060 PRINT " 

tt 

1070 PRINT "YOU WERE PRESIDENT FOR ";Y + 

(Z * . 25) ;" YEARS" 

1080 PRINT "DURING YOUR TERM OF OFFICE, 
THE" 

1090 PRINT "POPULATION ROSE BY ";P - 3 * 
ML 

1100 PRINT "THE UNEMPLOYMENT RATE BECAME 
" ; INT (U * 1000 / P) / 10;"%" 

1110 PRINT "AND THE INFLATION RATE BECAM 
E " ; INT (10 * IP) / 10;"%" 

1120 PRINT "STANDARD OF LIVING CHANGED B 
Y "; INT ((2 * ( ( RGDP / AGDP) * 
100) - 100) / 3);"%" 
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1130 PRINT "AND THE BUDGET 
IT WAS $M"; INT (10 

BD) / 10 



SURPLUS/DEFIC 



1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 

E 

1240 
1250 
1260 
1270 
1280 
1290 
CT 
1300 
1310 
1320 



END 
REM 
REM 
HOME 

GOSUB 8020 
ML = 1000 * 
P = 3 * ML 
U = P / 10; 
IV = 236 
GE = 118 



INITIALIZATION 



1000 



: REM UNEMPLOYMENT 
REM INVESTMENT 
REM GOVERNMENT EXPENDITUR 



GU = 0: REM COST OF UNEMPLOYMENT 

GI = 0: REM INCOME FROM TAXES 

WN = 100; REM NEW WAGES 

WO = 100; REM OLD WAGES 

IP = 5: REM INFLATION PERCENT 

GDP = 440; REM GROSS DOMESTIC PRODU 

AGDP = 440: REM BASE YEAR GDP 
RGDP = 440: REM REAL GDP 
CN = 354: REM ECONOMIC CONSTANT (US 



ED THROUGHOUT SIMULATION) 



1330 
1340 
1350 
1360 
1370 
8000 
8010 

ETURN 
8020 

,192: 







Z = 1 : GAME = : FLAG = 
Y = 0: REM YEAR 

PRINT "ENTER YOUR LAST 

INPUT A$ 

RETURN 

REM SOUND ROUTINE 
POKE 10, PZ: POKE 11, DZ 



NAME" 



CALL 768: R 



POKE 768,173: POKE 769,48: POKE 770 
POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
240: POKE 777,8: POKE 778,202: 

POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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10 REM STOCKMARKET 

15 REM APPLE IIE/IIC. VERSION 

20 HOME 

30 GOSUB 8020 

40 DIM S(5),N(5),P(5),D(5) 

50 S(l) = 1.49:S(2) = 1.99:S(3) = 2.49:S( 
4) = 2.99:S(5) = 3.49 

60 N(l) = 2000:N(2) = 1500:N(3) = 1200:N( 
4) = 1000:N(5) = 800 

70 BB = 265:TV = 15000:QQ = 15000-.DAY = 1 

80 PRINT : PRINT "ENTER YOUR GOAL FOR TH 
IS SIMULATION," 

90 PRINT TAB( 8)"$16,000 TO $100,000" 

100 INPUT GOAL 

110 IF GOAL < 16000 THEN PRINT "TOO LOW 
!": GOSUB 5000: GOTO 80 

120 IF GOAL > 100 * 1000 THEN PRINT "TO 
HIGH!": GOSUB 5000: GOTO 80 

130 REM 

140 REM MAJOR LOOP 
150 FOR C = 1 TO 5 

160 REM ADJUST THE 55 IN THE NEXT LINE 
TO MODIFY THE GAME; 80 VERY HAR 
D, 30 VERY EASY 
170 D(C) = INT ( RND (1) * 55) + 1 
180 P(C) = INT ( RND (1) * (100 - D(C))) 
+ 1 

190 NEXT C 
200 GOSUB 230 
210 GOTO 460 

220 REM ******************** 
230 REM PRINT OUT 
240 HOME 

250 PRINT " 

?i 

255 GOSUB 5200 

260 PRINT "DAY "DAY" YOUR GOAL IS 

$"GOAL 

270 PRINT " 

. ?» 

280 PRINT "COMPANY NUMBER:" 
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290 PRINT TAB( 2)1; TAB ( 9)2; TAB ( 16)3 
; TAB ( 25)4; TAB ( 32)5 
295 PRINT 

300 PRINT "CHANCE OF INCREASE (%):" 
310 PRINT TAB( 2)P(1); TAB( 9)P(2); TAB 
( 16)P(3); TAB ( 25)P(4); TAB ( 3 
2)P(5) 
315 PRINT 

320 PRINT "CHANCE OF DECREASE (%):" 
330 PRINT TAB( 2)D(1); TAB ( 9)D(2); TAB 
( 16)D(3); TAB ( 25)D(4); TAB ( 3 
2)D(5) 
335 PRINT 

340 PRINT "CURRENT VALUE PER SHARE:" 
350 PRINT "$"; INT (S(l) * 100) / 100; T 
AB( 8)"$"; INT (S(2) * 100) / 1 
00; 

360 PRINT TAB ( 15)"$"; INT (S(3) * 100) 
/ 100; TAB( 23)"$"; INT (S(4) * 

100) / 100; 
370 PRINT TAB ( 30)"$"; INT (S(5) * 100) 
/ 100 

375 PRINT 

380 PRINT "NO. OF SHARES HELD:" 
390 PRINT TAB( 2)N(1); TAB( 9)N(2); TAB 
( 16)N(3); TAB ( 24)N(4); TAB ( 3 
1)N(5) 
395 PRINT 

400 PRINT "BANK $"; INT (BB)" TOTAL WORT 
H $"; INT (TV) 
410 PRINT " 



420 IF TV > GOAL THEN PRINT "YOU'VE HIT 
YOUR FINACAIL GOAL!": GOSUB 55 

00: END 
430 RETURN 

440 REM fc************************* 

450 REM ** SELL 

460 PRINT "DO YOU WANT TO SELL ANY SHARE 
S ( Y/N) ?" 
470 GET A$ 

480 IF A$ < > "Y" AND A$ < >. "N" THEN 
470 
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490 IF A$ = "N" THEN 690 
500 GOSUB 230 

510 PRINT "WHICH ONES TO SELL? " ; 
520 GET A$ 

530 IF A$ < "1" OR A$ > "5" THEN 520 

540 C = VAL (A$) 

550 PRINT " OK ";C 

560 PRINT "HOW MANY OF " ; C ; " TO SELL "; 
570 INPUT N 

580 IF N > N(C) THEN PRINT "YOU DON'T H 
AVE THAT MANY!": GOSUB 5000: GOTO 
570 

590 REM ************************ 

600 REM ADJUST FIGURES AFTER SALE 

610 BB = BB + S(C) * N: REM ADD VALUE TO 

BANK 

620 N(C) = N(C) - N: REM SUBTRACT NO. SO 
LD 

630 TV = 0: REM SET TOTAL WORTH TO ZERO 

640 REM NOW DETERMINE CURRENT WORTH 

650 FOR C = 1 TO 5 

660 TV = TV + N(C) * S(C) 

670 NEXT C 

680 TV = TV + BB: REM ADD IN BANK BALANC 

E 

690 GOSUB 230 

700 REM ************************* 
710 REM ** BUY ** 

720 PRINT "DO YOU WANT TO BUY ANY SHARES 

(Y/N)?" 

730 GET A$ 

740 IF A$ < > "Y" AND A$ < > "N" THEN 
730 

750 IF A$ = "N" THEN 890 
760 GOSUB 230 

770 PRINT "WHICH COMPANY TO BUY? "; 
780 GET A$ 

790 IF A$ < "1" OR A$ > "5" THEN 780 

800 C = VAL (A$) 

810 PRINT " OK ";C 

820 PRINT "HOW MANY OF " ; C ; " TO BUY "; 
830 INPUT N 

840 IF N * S(C) > BB THEN PRINT "YOU DO 
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N'T HAVE ENOUGH MONEY!": GOSUB 
5000: GOTO 830 
850 REM ************************** 
860 REM ADJUST FIGURES AFTER BUY 
870 BB = BB - S(C) * N 
880 N(C) = N(C) + N 
890 TV = 
900 FOR C = 1 TO 5 
910 TV = TV + N(C) * S(C) 
920 NEXT C 
930 TV = TV + BB 
940 GOSUB 230 

950 REM ************************** 

960 REM MODIFY ALL INDICATORS 

970 TV = 

980 FOR C = 1 TO 5 

990 K = INT ( RND (1) * 100) + 1 

1000 IF K < P(C) THEN S(C) = S(C) * (1 + 

(P(C) / 1000)) 

1010 K = INT ( RND (1) * 100) + 1 

1020 IF K < D(C) THEN S(C) = S(C) / (1 + 

(D(C) / 1000)) 

1030 TV = TV + (S(C) * N(C)) 

1040 NEXT C 

1050 TV = TV + BB 

1060 QQ = QQ * 1.005 

1070 W = (TV * 100 / QQ) - 100 

1080 IF W = THEN W = .1 

1090 W = W + 6 

1100 IF W < 1 THEN W = 1 

1110 IF W > 15 THEN W = 15 

1120 RESTORE 

1130 FOR T = 1 TO W 

1140 READ A$ 

1150 NEXT T 

1160 PRINT 

1170 REM ********************* 

1180 REM GIVE RATING, START NEW ROUND 

1190 PRINT "YOUR RATING AFTER THAT ROUND 

OF" 

1200 PRINT "TRADING IS '"^j"'" 

1210 PRINT : PRINT TAB( 5)"<PRESS SPACE 

BAR TO CONTINUED 1 
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1220 GET A$: IF A$ < > " " THEN 1220: R 
EM NOTE SPACE BETWEEN QUOTE MA 
RKS 

1230 DAY = DAY + 1 



1240 


GOTO 


150 


1250 


DATA 


"HOPELESS", "VERY, VERY, POOR" 


1260 


DATA 


"TERRIBLE" , "AWFUL" , "BAD" 


1270 


DATA 


"VERY ORDINARY", "AVERAGE" 


1280 


DATA 


"REASONABLE", "A LITTLE ABOVE 


AVERAGE" 




1290 


DATA 


"FAIRLY GOOD", "GOOD", "VERY G 


OOD" 






1300 


DATA 


"GREAT" , "EXCELLENT" , "SUPERLAT 


IVE" 






5000 


P = 50 


:D = 100 


5010 


GOSUB 


8000 


5020 


RETURN 


5200 


P = 150:D = 200 


5210 


GOSUB 


8000 


5220 


RETURN 


5500 


P = 250 :D = 5 


5510 


GOSUB 


8000 


5520 


P = P 


- 10 


5530 




> 10 THEN GOTO 5510 


5540 


RETURN 


8000 


REM 


SOUND ROUTINE 


8010 


POKE 


10, P: POKE 11, D: CALL 768: RET 


URN 






8020 


POKE 


768,173: POKE 769,48: POKE 770 


,192: 

t 


POKE 771,136: POKE 772,20 


3: POKE 


773,4 


8030 


POKE 


774,198: POKE 775,11: POKE 776 



,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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10 REM DETROIT CITY 
15 REM APPLE IIE/IIC VERSION 
20 GOSUB 1640: REM INITIALIZE 
30 GOTO 110 

40 MT = MT + 1: REM COUNTS MONTHS 

50 GOSUB 650 

60 IF TP > 200 THEN 1560 

70 PRINT "DO YOU WANT TO RESIGN (Y/N)?" 

80 GOSUB 1010 

90 IF A$ = "Y" THEN PRINT "OK , CHIEF" :P 
Z = 50:D = 250: GOSUB 8000: END 
100 GOSUB 1380 
110 GOSUB 650 

120 FOR T = 1 TO 1000: NEXT T 
130 GOSUB 850 

140 PRINT "DO YOU WANT TO EXPAND OUTPUT 
(Y/N)?" 
150 GOSUB 1010 
160 IF A$ = "Y" THEN 1080 
170 IF SF = 1 THEN 210 

180 PRINT "DO YOU WANT TO SELL FACTORY 4 
(Y/N)?" 

190 GOSUB 1010 

200 IF A$ = "Y" THEN 1250 

210 GOSUB 650 

220 INPUT "HOW MANY EMPLOYEES TO HIRE " : 
HE 

230 NE = NE + HE: IF HE > THEN 260 
240 INPUT "HOW MANY EMPLOYEES TO FIRE " ; 
HE 

250 N = NE - HE 
260 GOSUB 650 

270 PI = AS: REM SET PI EQUAL TO OLD PRI 
CE 

280 INPUT "WHAT IS YOUR SELLING PRICE "; 
AS 

290 REM NEXT LINE REJECTS TOO BIG A CHA 
NGE IN SELLING PRICE 
300 IF ABS (PI - AS) > 2500 THEN PRINT 
"TOO BIG A CHANGE FOR THE MARK 
ET": GOTO 280 
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310 HOME 

320 PRINT : PRINT : PRINT 

330 MI = INT ( RND (1) * 4000) + 48 * 10 
00: REM THIS MONTH'S SALES BY 
INDUSTRY 

340 C = C + 1: REM COUNTS NUMBER OF MONT 
HS 

350 IF C < 3 THEN 470 

360 M = INT ( RND (1) * 10 + 1) / 4: REM 

INFLATION 
370 HOME 

380 PRINT "INFLATION RATE THIS QUARTER I 
S " • M • "%" 

390 'PRINT "AVERAGE WAGES BILL WILL NOW R 
ISE TO" 

400 AW = (AW * M / 100) + AW 
410 PRINT TAB( 8)"$"; INT (AW)" PER EMP 
LOYEE" 

430 PRINT : PRINT TAB( 12)"ANY KEY TO C 
ONTINUE" 
440 GET V$ 

450 FA = (FA * M / 100) + FA 
460 C = 

470 Y(l) = NE * 15 / 12: REM SALES BASED 
ON NUMBER OF EMPLOYEES 

480 Y(2) = (100 - AS / FA) * MI / 100: RE 
M SALES BASED ON INDUSTRY SALE 
S 

490 REM NEXT LINES SET LOWEST FIGURE FR 
OM Y(1),Y(2),M(5) EQUAL TO Y(3) 

500 IF Y(l) < Y(2) AND Y(l) < M(5) THEN 
Y(3) = Y(l) : GOTO 540 

510 IF Y(2) < Y(l) AND Y(2) < M(5) THEN 
Y(3) = Y(2): GOTO 540 

520 Y(3) = M(5) 

530 REM NEXT LINES DETERMINE MONTHLY SA 
LES 

540 IF ABS (PI - AS) < 501 THEN Y(3) = 
3.6 * Y(3) / 3 
' 550 IF Y(3) > M(5) THEN Y(3) = Y(3) - 19 
75: GOTO 550 

560 MC = (MC * M / 100) + MC 

570 EF = Y(3) / M(5) * 100: REM EFFICIEN 
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CY % AS SALES DIVIDED BY TOTAL 
OUTPUT 

580 AC = (MC * ( ABS (85 - EF) / 3) / 100 
) + MC: REM AVERAGE COST PER V 
EHICLE 

590 MP = ((Y(3) * (AS - AC)) - (NE * AW / 
12)): REM MONTHLY PROFIT 
600 MP = INT (MP / (100 * 1000)) 
610 TP = TP + MP / 10: REM TOTAL PROFIT 
IN MILLIONS 
620 M = 
630 GOTO 40 

640 REM *********************** 
650 REM REPORT PRINTOUT 
660 HOME 

665 PZ = 100:DZ = 100: GOSUB 8000 
670 PRINT "INDUSTRY SALES ";MI;" IN MONT 
H " ;MT 

680 IF MT > THEN PRINT "YOUR SALES: " 
; INT (Y(3));" ("; INT (Y(3) * 

1000 / MI) / 10;"% OF TOTAL)" 
690 PRINT " = 

?! 

700 PRINT "YOU HAVE " ; NE ; " EMPLOYEES" 
710 PRINT "AVERAGE WAGES ARE $" ; INT (AW 

) 

720 PRINT " OR $M "; INT (AW * NE / (100 
* 1000) / 12) / 10;" PER MONTH 

730 PRINT " — 

»t 

740 IF MT = THEN RETURN 

750 PRINT "AVERAGE COST PER VEHICLE IS $ 
"; INT (AC) 

760 PRINT "AND AVERAGE SELLING PRICE IS 
$" ; INT (AS) 

770 PRINT "SO THE AVERAGE PROFIT IS $"; 
INT (AS - AC) 

780 PRINT "OR $M "; INT ((AS - AC) * Y(3 
) / (100 * 1000)) / 10;" PER MO 
NTH" 

790 PRINT " 
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800 PRINT "PROFIT FOR THE MONTH IS $M "; 

MP / 10 

810 PRINT "& TOTAL PROFIT TO DATE IS $M 
"; INT (TP * 10) / 10 
820 PRINT " > 

It 

830 RETURN 

840 REM ******************** 
850 REM MONTH REPORT 
860 HOME 

865 PZ = 150:DZ = 100: GOSUB 8000 

880 PRINT " ■— 



890 


PRINT 


"MAXIMUM 


MONTHLY 


OUTPUT 






900 


PRINT 


TAB( 3) 


"FACTORY 


1: 


ti . 

» 


INT 


(M( 


D) 
















910 


PRINT 


TAB( 3) 


"FACTORY 


2: 


ii . 

> 


INT 


(M( 


2)) 










ii . 
» 




(M( 


920 


PRINT 


TAB( 3) 


"FACTORY 


3: 


INT 


3)) 
















930 


IF SF 


= 1 THEN 


960 










940 


PRINT 


TAB( 3) 


"FACTORY 


4: 


it . 

5 


INT 


(M( 


4)) 
















950 


PRINT 
ii 


ti 

























960 PRINT "TOTAL OUTPUT IS "; INT (M(5)) 

970 PRINT " 

ti 



980 PRINT "EFFICIENCY LEVEL IS " ; INT (E 



F) ;"%" 






990 


RETURN 




1000 


********************* 




1010 


REM GET REPLIES 




1020 


GET A$ 




1030 


IF A$ < > "Y" AND A$ < > "N" 


THEN 


1020 






1040 


PRINT TAB( 22)A$ 




1050 


FOR J = 1 TO 500: NEXT J 




1060 


RETURN 




1070 


REM ********************* 




1080 


REM INCREASE OUTPUT? 




1090 


IF M(4) = THEN X = 15: GOTO 


1110 


1100 


X = 18 
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1110 PRINT "IT WILL COST $M " ; X ; " TO EXP 
AND" 

1120 PRINT TAB( 8)"0UTPUT BY 1%" 

1130 PRINT " 



1140 PRINT "HOW MANY % DO YOU WISH TO RA 
ISE OUTPUT?" 

1150 INPUT EP: IF EP < OR EP > 100 THE 
N 1150 

1160 M(5) = 

1170 FOR T = 1 TO 4 

1180 M(T) = M(T) + M(T) * EP / 100 

1190 M(5) = M(5) + M(T) 

1200 NEXT T 

1210 TP = TP - EX * X 

1220 FOR T = 1 TO 500: NEXT T 

1230 GOTO 170 

1240 REM ********************** 

1250 REM SALE OF FACTORY FOUR 

1260 PRINT "FACTORY FOUR IS VALUED FOR S 
ALE AT $M 104" 

1270 PRINT "YOU CAN'T REBUY IT LATER IF 
YOU SELL IT ... " 

1280 PRINT "DO YOlj'wANT TO SELL (Y/N)?" 

1290 GOSUB 1010 

1300 IF A$ = "N" THEN 210 

1310 TP = TP + 104 

1320 SF = 1 

1330 M(5) = M(l) + M(2) + M(3) 
1340 M(4) = 
1350 GOTO 170 

1360 REM ********************* 

1370 REM CHECK ON LOSSES 

1380 IF MP > THEN SA = 0: GOTO 1480 

1390 SA = SA + 1 

1400 IF SA > 11 THEN 1420 

1410 GOTO 1480 

1420 HOME :PZ = 150:D = 250: GOSUB 8000: 
PZ = 150:DZ = 250: GOSUB 8000 

1430 PRINT : PRINT "YOU JUST MADE YOUR T 
WELFTH MONTHLY" 

1440 PRINT "LOSS IN A ROW " 

1450 PRINT TAB( 6) "YOUR EMPLOYMENT" 



217 



Apple lie 

1460 

! ! " 
1470 
1480 
1490 
1500 

T, THE 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 

NY HAS 
1590 
MADE" 
1600 

RD" 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 

LOYEES 
1690 

GE 
1700 
1710 
1720 
1730 
1740 


1750 
1760 
1770 
1780 
1790 
5000 



PRINT TAB( 6)"IS HEREBY TERMINATED 
END 

IF TP > = - 250 THEN 1530 
HOME :PZ = 200-.DZ = 250: GOSUB 8000 
PRINT : PRINT "UNDER YOUR MANAGEMEN 
COMPANY HAS" 

PRINT "LOST MORE THAN $M 250!!" 
GOTO 1450 

IF TP > 200 THEN 1570 
RETURN 

REM SWEET SWEET SUCCESS!!! 
HOME : GOSUB 5000 

PRINT : PRINT "WELL DONE! THE COMPA 
MADE MORE" 

PRINT " THAN $M 200. YOU'VE BEEN 



PRINT " 



A MEMBER OF THE BOA 



FOR T = 1 TO 2000: NEXT T 

END 

REM 

REM INITIALIZATION 
HOME 

GOSUB 8020 
DIM M( 5) , Y(5) 
NE = 12000: REM STARTING NO. OF EMP 

AW = 22995: REM STARTING AVERAGE WA 

AC = 11100: REM COST PRICE/ VEHICLE 
AS = 12000: REM SELLING PRICE 
MI = 50 * 1000:MC = 10100 
Y(3) = 12500 

MS = 25:EF = 77:FA = 160:SF = 0:MT = 

FOR J = 1 TO 5 
READ M(J) 
NEXT J 
RETURN 

DATA 8900,3250,2500,1625, 16275 
PZ = 200:DZ = 50 
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5010 FOR TL = 1 TO 5 
5020 GOSUB 8000 

5030 FOR TH = 1 TO 50; NEXT TH 
5040 NEXT TL 
5050 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 11 ,DZ: CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 

8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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10 REM GRIDIRON 

15 REM APPLE IIE/IIC VERSION 

20 HOME 

30 GOSUB 8020 

40 GOSUB 70 

50 GOTO 220 

60 REM ********* ********* 

70 • FOR X = 1 TO 2000: NEXT X 

80 RETURN 

100 PRINT A$;SA 

110 PRINT B$;SB 

120 RETURN 

130 REM ********************** 
140 IF Z$ = A$ THEN Z$ = B$: RETURN 
150 Z$ = A$: RETURN 
170 PRINT " >PRESS ANY KEY<" 

180 GET M$ 

200 P = 100:D = 50: GOSUB 8000: PRINT TA 
B( 18)"0K": RETURN 
210 REM ********* 
220 REM INTIALISE 

230 DEF FN A(X) = INT ( RND (1) * X) + 
1 

240 PRINT "ONE PLAYER OR TWO" 
250 INPUT X 

260 IF X < 1 OR X > 2 THEN 250 

270 IF X = 1 THEN VC = 1:A$ = "SILICON C 

OWBOYS ": GOTO 300 
280 PRINT "WHAT IS THE NAME OF THE HOME 

TEAM?" 

290 ' INPUT A$: IF A$ = "" THEN 290 
295 A$ = A$ + " " 

300 PRINT "AND THE NAME OF THE VISITING 
TEAM?" 

310 INPUT B$: IF B$ = "" THEN 310 
315 B$ = B$ + " " 
320 Z$ = A$:NU = 35 
330 HOME 

340 PRINT "THERE ARE " ; INT (10 * (60 - 
(W / 4))) / 10;" MINUTES TO GO" 
350 PRINT TAB( 8)Z$;"T0 KICK OFF" 
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360 PRINT "YOU ARE ON YOUR OWN " ; NU ; " YA 
RD LINE" 

370 IF VC = 1 AND Z$ = A$ THEN GOSUB 70 
: GOTO 400 
380 PRINT "TO KICK OFF. . . " 
390 GOSUB 170 
400 A = FN A(20) + 40 
410 PRINT Z$;"HAVE. . ." 
415 GOSUB 70 
420 FOR X = 1 TO A 

425 PX = INT (X / 3): IF PX < 1 THEN PX 
= 1 

430 PRINT TAB( PX)"KICKED " ; X ; " YARDS" 
440 NEXT X 
450 NU = NU + X 
460 GOSUB 70 

470 PRINT "THE BALL IS CAUGHT!" 

480 GOSUB 70 

490 A = FN A(30) + 10 

500 FOR X = 1 TO A 

505 PX = X / 5: IF PX < 1 THEN PX = 1 
510 PRINT TAB ( PX)"AND RETURNED " ; X ; " Y 
ARDS" 
520 NEXT X 

530 NU = ABS (100 - NU + X) 
540 GOSUB 140 

550 PRINT " 

?! 

560 PRINT "THE BALL IS DOWN ON" 
570 PRINT Z$"'S ";NU;" YARD LINE" 
580 IF Z$ = A$ AND VC = 1 THEN GOSUB 70 
: GOTO 600 
590 GOSUB 170 
600 TG = 10:DN = 0:SL = NU 
610 IF W = 60 OR W = 180 THEN 2010 
620 IF W = 120 THEN 2070 
630 IF W = 240 THEN 2140 
640 HOME 

650 PRINT LEFT$ (A$,6) ;" ";SA;" "; LEFT 
$ (B$,6);" ";SB 

660 PRINT INT (10 * (60 - (W / 4))) / 1 
0;" MINUTES TO GO" 

670 GOSUB 70 
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680 PRINT " 

n 

690 PRINT Z$;"IN POSSESSION" 

700 PRINT TAB( 4)DN; !I DOWN" 

710 PRINT TAB( 4)TG;" YARDS TO GO" 

720 PRINT " 

?i 

730 PRINT "START AT ";SL;" YARD LINE" 

740 PRINT "NOW ON ";NU;" YARD LINE" 

750 PRINT 100 - NU;" YARDS TO TOUCHDOWN" 

760 PRINT " 

t! 

770 PRINT "ON THIS PLAY "; 

780 IF Z$ = A$ THEN PRINT A$;"CAN": GOT 



800 










790 


PRINT B$;"CAN" 


THROW" 






800 


PRINT "EITHER 1 - 






810 


PRINT " 2 - 


CARRY" 






829 


PRINT " OR 3 - 


PUNT" 






830 


PT = 








840 


IF Z$ = A$ AND VC 


= 1 AND 


DN < 


3 THE 


N PT 


= 2: GOTO 900 








850 


IF Z$ = A$ AND VC 


= 1 AND 


TG < 


7 THE 


N PT 


= 2: GOTO 900 








855 


IF Z$ = A$ AND VC 


= 1 AND 


DN > 


2 THE 


N PT 


= 3: GOTO 900 






- NU) 


860 


IF Z$ = A$ AND VC 


= 1 AND 


(100 


< 31 


THEN PT = 3s GOTO 


900 






870 


IF Z$ = A$ AND VC 


= 1 THEN 


PT 


= 1: G 


OTO 900 




> "3 


" THEN 


880 


GET K$: IF K$ < " 


1" OR K$ 


880 








"OK "; 


890 


PT = VAL (K$): PRINT TAB( 


10) 



PT 

900 GOSUB 70 
910 W = W + 1 
920 HOME 

930 PRINT Z$;", YOUR QUARTERBACK HAS" 

940 PRINT TAB( 8)"G0T THE BALL" 

950 PRINT " 

it 

960 PRINT "WAIT FOR THE COUNT, ";Z$;"," 
970 PRINT TAB( 8) "THEN HIT ANY KEY.,." 
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980 1$ = 

990 GOSUB 70 

1000 GOSUB 2200 

1010 IF E = 11 THEN 2340 

1020 PRINT " 



1030 ON PT GOTO 1050,1310,1590 
1040 REM 

1050 PRINT "YOU'VE THROWN ";E * 5;" YARD 
S " 

1060 PRINT TAB ( 4); "AND THE PLAY IS..." 

1070 A = FN A(8) 

1080 IF A = 1 THEN 1520 

1090 A = FN A(E + 1) 

1100 IF A = 1 THEN PRINT TAB( 20)". . .C 
OMPLETE" : GOTO 1220 

1110 PRINT TAB ( 20) "... INCOMPLETE" : DN = 

DN + 1 

1120 GOSUB 170 

1130 PRINT " 



1140 IF DN > 3 THEN 1160 

1150 GOTO 610 

1160 PRINT "THAT WAS YOUR FOURTH DOWN" 

1170 PRINT "AND YOU'VE LOST POSSESSION!! 

1180 DN = OjTG = 10:NU = ABS (100 - NU) : 
SL = NU 
1190 GOSUB 70 
1200 GOSUB 140 
1210 GOTO 610 
1220 GOSUB 170 

1230 NU = NU + (E * 5):TG = TG - (E * 5) 

1240 IF NU > 100 THEN 1800 

1250 IF TG < 1 THEN 1280 

1260 DN = DN + 1: IF DN > 3 THEN 1160 

1270 GOTO 610 

1280 DN = 0:TG = 10:SL = NU 

1290 GOTO 610 

1300 REM 

1310 A = FN A(15) 

1320 IF A = 1 THEN 1510 

1330 E = A - 5 
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1340 
1350 
1360 
1370 
1380 



1390 TG = TG 
DN + 1 



IF E < THEN 1440 
IF E = THEN E = 1: GOTO 1370 
PRINT "GOOD SNAP, PASS AND RUN" 
PRINT "YOU'VE GAINED " ; E ; " YARDS" 
GOSUB 170 

E:NU = ABS (NU + E ) : DN = 



1400 
1410 
1420 
1430 
1440 



IF NU > 100 THEN 1800 
IF TG < 1 THEN 1280 
3 THEN 1160 



ABS (E 



+ 1 



IF DN > 
GOTO 610 

PRINT "GREAT RUNNING BY THE OPPOSIT 
ION HAS" 

1450 PRINT "CAUSED YOU TO LOSE " 
) ° " YARDS" 
1460 Tg'= TG - E:NU = NU + E : DN = DN 
1470 GOSUB 170 
1480 IF DN > 3 THEN 1160 
1490 GOTO 610 

1500 REM ************************ 

1510 PRINT "BAD SNAP ... YOU ' VE" 

1520 PRINT "FUMBLED. . .AND" 

1530 PRINT "YOU'VE LOST POSSESSION..." 

1540 NU = 100 - NU : DN = 0:TG = 10:SL = NU 

1560 GOSUB 170 

1570 GOTO 460 

1580 REM ************************* 
1590 PRINT "NICE PUNT. . ." 

1600 PRINT "YOU'VE KICKED ";E * 4;" YARD 
S " 

1610 NU = NU + E * E 

1620 IF NU > 100 THEN 1650 

1630 PRINT " 



1640 GOTO 460 

1650 A = FN A(3) 

1660 IF A > 1 THEN 1740 

1670 PRINT "BUT YOU'VE MISSED THE GOAL" 
1680 IF NU - E * 4 < 80 THEN NU = ABS ( 

100 - (NU - E * 4)): GOTO 1700 

1690 NU = 20 

1700 DN = 0:TG = 10:SL = NU 
1710 GOSUB 140 
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1720 GOSUB 170 
1730 GOTO 610 

1740 PRINT "...AND SCORED!" 
1745 P = 50:D = 150: GOSUB 8000 
1750 IF Z$ = B$ THEN SB = SB + 3: GOTO 1 
770 

1760 SA = SA + 3 

1770 GOSUB 100 

1780 GOSUB 170 

1790 NU = 35: GOTO 330 

1800 HOME 

1810 FOR X = 1 TO 5 

1820 PRINT TAB ( X * 2 ) "TOUCHDOWN ! !" 
1825 P = 25:D = 25: GOSUB 8000 
1830 NEXT X 

1840 IF Z$ = A$ THEN SA = SA + 6: GOTO 1 
860 

1850 SB = SB + 6 
1860 GOSUB 100 

1870 PRINT "TO PLAY FOR EXTRA POINT" 
1880 GOSUB 170 

1890 PRINT " 



1900 PRINT "THE BALL IS SNAPPED ... PREPAR 
E TO KICK!" 
1910 GOSUB 70 
1920 GOSUB 2200 

1930 IF E > 9 THEN PRINT "YOU MISSED":N 

U = 20: GOTO 1970 
1940 PRINT "YOU SCORED ...": NU = 35 
1950 IF Z$ = A$ THEN SA = SA + 1: GOTO 1 

980 

1960 SB = SB + 1 

1970 GOSUB 140 

1980 GOSUB 100 

1990 GOSUB 170 

2000 GOTO 330 

2010 FOR X = 1 TO 10 

2015 P = 200:D = 100: GOSUB 8000 

2020 PRINT TAB( 2 * X)"PERIOD OVER" 

2030 NEXT X 

2040 GOSUB 100 

2050 GOSUB 170 
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2060 GOTO 660 

2070 FOR X = 1 TO 10 

2080 PRINT TAB ( X * 2) "HALF TIME" 

2090 NEXT X 

2100 GOSUB 100 

2110 Z$ = B$ 

2120 GOSUB 170 

2130 NU = 35:W = W + 2: GOTO 330 

2140 FOR X = 1 TO 10 

2150 PRINT TAB ( X * 2) "GAME OVER" 

2160 NEXT X 

2170 GOSUB 100 

2180 END 

2190 REM 

2200 E = 0:X = 10 

2210 IF Z$ = A$ AND VC = 1 THEN PRINT " 
THIS ONE FOR "; A$: GOTO 2290 
2220 E = E + 1:X = X - 1 
2230 PRINT TAB ( E);E 
2240 FOR Y = 1 TO X * 1.5 

2250 I = PEEK ( - 16384) - 128: IF I > 
THEN 1$ = CHR$ (I) 
2252 POKE - 16368,0 

2255 IF 1$ < > "" THEN Y = X * 1.5 + 1: 
RETURN 

2260 NEXT Y 

2270 IF E = 11 THEN RETURN 
2280 GOTO 2220 

2290 FOR E = 1 TO FN A(7) + 2 
2300 FOR J = 1 TO 60: NEXT J 
2310 PRINT TAB ( E);E 
2320 NEXT E 
2330 RETURN 

2340 PRINT "TOO LATE! !" 

2350 PRINT "YOU'VE BEEN SACKED! !" 

2360 E = FN A(4) 

2370 IF E = 3 THEN 2430 

2380 PRINT "AND LOST FIVE YARDS!" 

2390 TG = TG + 5:DN = DN + 1 :NU = NU - 5 

2400 GOSUB 170 

2410 IF DN > 3 THEN 1160 

2420 GOTO 610 

2430 PRINT "AND LOST POSSESSION!" 
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2440 DN = 0:NU = ABS (100 - NU + 5):SL = 
NU:TG = 10 
2450 GOSUB 170 
2460 GOSUB 140 
2470 GOTO 610 
8000 REM SOUND ROUTINE 
^8010 POKE 10, P: POKE 11, D: CALL 768: RET 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 

8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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10 REM TENNIS 

15 REM APPLE IIE/IIC VERSION 

20 HOME 

30 GOSUB 8020 

40 AA = 0:BB = 0:T = 0:KA = 
50 XA = 0:YA = 0:ZA = 
60 XB = 0:YB = 0:ZB = 

70 DEF FN A(X) = INT ( RND (1) * X) + 

1 

80 INPUT "ONE HUMAN PLAYER OR TWO " ;A 
90 IF A < 1 OR A > 2 THEN 80 
100 IF A = 1 THEN A$ = "BJORNX":VC = 1 
110 IF VC = 1 THEN 160 

120 PRINT "PLEASE ENTER A SIX-LETTER NAM 
E" 

130 INPUT "NAME OF FIRST PLAYER ";A$ 
140 IF LEN (A$) < 6 THEN A$ = A$ + " " : 
GOTO 140 

150 A$ = LEFT$ (A$,6) 

160 INPUT "NAME OF SECOND PLAYER ";B$ 
170 IF LEN (B$) < 6 THEN B$ = B$ + " 11 : 
GOTO 170 

180 B$ = LEFT$ (B$,6) 
190 S = 1 : AA = 1:BB = 1 
200 HOME 

210 P$ = A$:R$ = B$ 

220 REM ********************** 

230 IF P$ = A$ THEN R$ = B$ 
240 IF P$ = B$ THEN R$ = A$ 
250 PRINT P$;" SERVING" 

260 PRINT "DO YOU WANT TO SERVE 1 - FAST 

!! 

270 PRINT " OR 2 - SLOW 

n 

280 IF P$ = A$ AND VC = 1 AND SC = THE 
N KB = 1: GOSUB 1720: GOTO 330 

290 IF P$ = A$ AND VC = 1 AND SC = 1 THE 
N KB = 2: GOSUB 1720: GOTO 330 

300 K$ = " ":K = PEEK ( - 16384) - 128: I 
F K > THEN K$ = CHR$ (K) : POKE 
- 16368,0 
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310 IF K$ < "1" OR K$ > "2" THEN 300 

320 KB = VAL (K$) 

330 PRINT : PRINT TAB( 6)KB; TAB( 10)"> 
IT'S A "; 

340 IF KB = 1 THEN PRINT "FAST"; 

350 IF KB = 2 THEN PRINT "SLOW" ; 

360 PRINT " SERVE. . ." 

370 GOSUB 1720 

380 IF KB = 1 THEN EB = FN A(3): GOTO 4 
00 

390 EB = FN A(8) 

400 IF EB = 1 THEN 450 

410 IF EB = 3 AND SC = THEN 520 

420 IF EB = 3 AND SC = 1 THEN 590 

430 GOTO 670 

440 REM ************************* 

450 HOME : PRINT 

460 PRINT TAB( 8)" ACE. . ." 

470 GOSUB 1720 

480 SC = 

490 IF P$ = A$ THEN 1140 

500 GOTO 1150 

510 REM ************************* 

520 HOME : PRINT 

530 PRINT TAB( 12)" OUT " 

540 PRINT TAB( 8)"... SECOND SERVE..." 
550 GOSUB 1720 
560 SC = 1 
570 GOTO 230 

580 REM ************************** 
590 HOME : PRINT 

600 PRINT TAB( 12)" OUT " 

610 PRINT TAB( 9)" DOUBLE FAULT " 

620 GOSUB 1720 
630 SC = 

640 IF P$ = A$ THEN 1150 
650 GOTO 1140 

660 REM ************************** 

670 SC = 

680 HOME : PRINT 

690 POKE - 16368,0 

700 PRINT R$;", THE BALL IS": PRINT "IN 
YOUR COURT" 
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710 PRINT " " 

720 IF R$ = A$ AND VC = 1 THEN 750 

730 PRINT "HIT ANY KEY, WHEN YOU SEE THE 

ZERO, TO RETURN THE BALL.. 

750 X = 4 * FN A(3):Y = X 
760 GOSUB 1720 
770 E = 5 

780 PRINT TAB( 2 * (11 - E));E 
790 Y = Y - 1 

800 S$ = "":S1 = PEEK ( - 16384) - 128: 
IF SI > THEN S$ = CHR$ (S): POKE 
- 16368,0 

810 IF S$ < > AND E = THEN 890 

820 IF S$ < > THEN 990 

830 IF Y > THEN 790 

840 E=E-1:Y=X 

850 IF E < - 1 THEN 990 

860 IF E = - 1 AND R$ = A$ AND VC = 1 T 
HEN 890 
870 GOTO 780 

880 IF KB = 1 THEN EA = FN A(2): GOTO 1 
000 

890 EA = FN A(4): GOSUB 5000 

900 IF E = AND R$ = A$ AND VC = 1 THEN 

EA = FN A(8) 

910 IF EA = 1 THEN 940 

920 IF R$ = A$ THEN R$ = B$: GOTO 670 
930 R$ = A$: GOTO 670 

940 PRINT R$;", YOU,VE HIT THE BALL" 
950 PRINT TAB( 8)"0UT OF PLAY. . ." 
960 GOSUB 1720 

970 IF R$ = A$ THEN R$ = B$: GOTO 1150 

980 GOTO 1140 

990 EA = FN A(4) 

1000 IF EA = 1 THEN 1070 

1010 PRINT "YOU MISSED THE BALL, AND..." 
1020 GOSUB 1720 

1030 PRINT "IT WAS IN... BAD MISTAKE" 
1040 GOSUB 1720 

1050 IF R$ = A$ THEN R$ = B$: GOTO 1150 
1060 GOTO 1140 

1070 PRINT "YOU MISSED THE BALL AND..." 
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1080 
1090 
1100 
1110 
1120 
1130 



GOSUB 1720 

PRINT " IT WAS OUT. .WELL LEFT" 
GOSUB 1720 

IF R$ = A$ THEN R$ = B$: GOTO 1140 
GOTO 1150 

REM ************************ 
1140 AA = AA + 1: GOTO 1160 
1150 BB = BB + 1 

1160 IF AA < 5 AND BB < 5 THEN 1230 

1170 IF (BB > 4 AND AA < 4) OR (BB > 4 A 
ND BB - AA > 1) THEN AA = 1:BB = 
lr GOTO 1500 

1180 IF (AA > 4 AND BB < 4) OR (AA > 4 A 
ND AA - BB > 1) THEN AA = 1:BB = 
1: GOTO 1440 

1190 ' IF AA > 4 AND AA > BB THEN C$ = "AD 
V":D$ = " ": GOTO 1320 

1200 IF (BB > 4 AND BB > AA) THEN D$ = " 
ADV":C$ = " ": GOTO 1320 

1210 C$ = "{DEUCE":D$ = "{DEUCE": GOTO 13 
20 

REM ************************* 
RESTORE 

FOR D = 1 TO AA 
READ C$ 
NEXT D 
RESTORE 

FOR D = 1 TO BB 
READ D$ 
NEXT D 

REM ************************* 
HOME 



1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 

> ZA ; 
1380 

J ZB j 
1390 
1400 
1410 



H 


SET 


SET 


SET" 


tt 






ft 


ft 


1 


2 


3 GAME" 


A$;" 


";XA;" 


it 


; YA ; " 


B$;" 


" . YR . " 

; ad ; 


?! 


. yg . tt tt 


1! 






tt 



";C$ 

RINT 

M ;D$ 



GOSUB 1720 

IF T < > 1 THEN 230 
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1420 END 

1430 REM ************************** 

1440 HOME 

1445 GOSUB 5500 

1450 PRINT "GAME TO ";A$ 

1460 GOSUB 1720 

1470 IF S = 1 THEN XA = XA + 1:C$ = "0": 
D$ = "0": GOTO 1560 

1480 IF S = 2 THEN YA = YA + 1 :C$ = "0": 
D$ = "0": GOTO 1580 

1490 IF S = 3 THEN ZA = ZA + 1:C$ = "0": 
D$ = "0": GOTO 1600 

1500 HOME 

1505 GOSUB 5500 

1510 PRINT "GAME TO " ;B$ 

1520 GOSUB 1720 

1530 IF S = 1 THEN XB = XB + 1:C$ = "0": 
D$ = "0": GOTO 1560 

1540 IF S = 2 THEN YB = YB + 1:C$ = "0": 
D$ = "0": GOTO 1580 

1550 IF S = 3 THEN ZB = ZB + 1 :C$ = "0": 
D$ = "0": GOTO 1600 

1560 IF (XA > 5 AND XB < 5) OR (XA < 5 A 
ND XB > 5) THEN 1630 

1570 IF (XA > 5 AND XA - XB > 1) OR (XB 

> 5 AND XB - XA > 1) THEN 1630 

1580 IF (YA > 5 AND YB < 5) OR (YA < 5 A 
ND YB > 5) THEN 1630 
1590 IF (YA > 5 AND YA - YB < 1) OR (YB 

> 5 AND YB - YA > 1) THEN 1630 

1600 IF (ZA > 5 AND ZB < 5) OR (ZA < 5 A 
ND ZB > 5) THEN 1680 
1610 IF (ZA > 5 AND ZA - ZB > 1) OR (ZB 

> 5 AND ZB - ZA > 1) THEN 1680 
1620 GOTO 1640 

1630 S = S + 1 
1640 AA = 1:BB = 1 

1650 IF P$ = A$ THEN R$ = A$:P$ = B$: GO 
TO 1320 

1660 P$ = A$:R$ = B$: GOTO 1320 
1670 REM ********************** 

1680 T = 1 
1690 GOTO 1320 
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1700 
1710 
1720 
1730 
1740 
5000 
5010 
5020 
5500 
5510 
5520 
5530 
5540 
5550 
8000 
8010 
ETURN 
8020 

8030 
,240: 



8 



8040 
,76: P 
7 

8050 
14580 
:D$ = 



REM ********************** 
REM DELAY 

FOR M = 1 TO 1000: NEXT M 
RETURN 

DATA "0", "15", "30", "40" 

PZ = 200:DZ = 50 

GOSUB 8000 

RETURN 
PZ = 100:DZ = 50 

FOR TL = 1 TO 3 

GOSUB 8000 

FOR TD = 1 TO 50: NEXT TD 

NEXT TL 

RETURN 

REM SOUND ROUTINE 

POKE 10, PZ: POKE 11, DZ: CALL 768: R 

POKE 768,173: POKE 769,48: POKE 770 
POKE 771,136: POKE 772,20 
: POKE 773,4 

POKE 774,198: POKE 775,11: POKE 776 
POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 

POKE 781,166: POKE 782,10: POKE 783 
OKE 784,0: POKE 785,3: POKE 
86,96 

RETURN 

IF S = 2 THEN YA = YA + 1:C$ = "0" 
"0": GOTO 1580 
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10 

15 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 
G * 1 

150 
AK * 

160 
ST * 

170 
ST * 

180 

) 

190 



REM GRAND PRIX 
REM APPLE IIE/IIC VERSION 
GOSUB 2200: REM INITIALIZE 
GOSUB 1190: REM CHOOSE TRACK 
REM *********************** 

REM MAJOR LOOP 

GOSUB 120: REM PRINTOUT 

GOSUB 280: REM ACCELERATION/CHECK 

GOSUB 450: REM ENGINE/BRAKES 

GOSUB 500: REM CORNER/POSITION 

GOTO 60 

REM 

REM 

HOME 



********************** 
PRINTOUT 



0) / 10;" C. (MAX. 200)" 
PRINT "BRAKE TEMPERATURE: 

10) / 10;" C. (MAX. 500)" 
PRINT " DISTANCE COVERED: 

10) / 10;" METERS" 
PRINT " : 

100 / RR) / 100;" LAPS" 



» 


INT 


(EN 




INT 


(BR 


> 


INT 


(DI 


» 


INT 


(DI 


9 


INT 


(FP 



PRINT 
ii 



200 

* 10 
210 

* 5. 

220 



PRINT " CURRENT SPEED: "; INT (SP 
) / 10;" KPH" 

PRINT " : "; INT (SP 

555) / 10;" METERS PER MOV 
E" 

PRINT " 

ii 



230 

P);" 

' 240 
PH" 
250 



PRINT "CORNER APPROACHING " ; INT (AP 
METERS" 

PRINT "RECOMMENDED SPEED: ";C(C) ;" K 



PRINT "• 
ii 



260 RETURN 

270 REM ************************ 
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280 REM CHECK ACCELERATION AND FACTORS 
290 GET X$: IF X$ < > "Z" AND X$ < > " 
M" AND X$ < > " " THEN 290 
300 PRINT TAB( 12)"0K" 
310 X = 

320 IF X$ = "M" THEN X = SP / 15 
330 IF X$ = "Z" THEN X = - SP / 15 
340 NUM = NUM + 1: REM NUMBER OF MOVES 
350 SP = SP + X 
360 IF SP < THEN SP = 
370 TRAV = SP * .5555: REM DISTANCE TRA 
VELLED 

380 DIST = DIST + TRAV: REM TOTAL DISTAN 
CE TRAVELLED 

390 ENG = ENG + (X / 2) + .07: IF ENG < 7 
THEN ENG = 70 + RND (1) * 8: 
REM ENGINE TEMP 
400 IF X > THEN BRAK = BRAK * .9: REM 
BRAKE EMP FALLING; ACCELERATIN 
G 

410 IF X < 1 THEN BRAK = BRAK - (3 * X) 
- RND (1) * 3: REM BRAKE TEMP 
INCREASING; BRAKING 
420 IF BRAK < 8 THEN BRAK = 8 + RND (1) 
* 8 

430 RETURN 

440 REM *********************** 
450 REM CHECK ENGINE/BRAKE TEMP 
460 IF ENG > 200 THEN PRINT "YOUR ENGIN 
E HAS OVERHEATED": GOSUB 5000: GOTO 
830 

470 IF BRAK > 500 THEN PRINT "YOUR BRAK 
ES HAVE OVERHEATED": GOSUB 5000 
: GOTO 830 
480 RETURN 

490 REM ********************** 

500 REM CHECK CORNERING SPEED AND FIELD 

POSITION 

510 APP = APP - TRAV 

520 IF APP > THEN RETURN 

530 CRASH = 

540 IF SP > (C(C) *' 1.125) THEN CRASH = 
1: GOTO 690 
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550 IF SP > (C(C) * 1.1) THEN GOTO 690 
560 PNT = PNT + 100 - ((C(C) * 1.1) - SP) 

: REM CORNERING POINTS 
570 NC = NC + 1: REM NUMBER OF CORNERS 
580 CP = 96 - (PNT / NC) : REM CORNERING 

POSITION 

590 AM = AM + A(C): REM AVERAGE NUMBER 
F MOVES ALLOWED 

600 RP = NUM - AM: REM RACING POSITION. 
YOUR MOVES MINUS AVERAGE MOVES 

610 FP - (CP + RP) / 2: REM FIELD POSITI 
ON IS AVERAGE OF CORNER & RACE 
POSITIONS 

620 IF FP < 1 THEN FP = 1 

630 C = C + 1 

640 IF C = WW THEN C = 1: REM LAP OVER 
650 APP = APP + D(C) 

660 IF LAP * QQ = AM THEN 910: REM RACE 
OVER 

670 RETURN 

680 REM ************************** 
690 REM CRASHED 
700 HOME 

710 PRINT "YOU CORNERED AT "; INT (10 * 
SPEED) / 10;" KPH" 

720 PRINT "AND THE MAXIMUM SPEED WAS JUS 
T ";C(C) 

730 GOSUB 2330 

740 PRINT "YOU SPIN OFF THE TRACK..." 
750 GOSUB 2330 

760 IF CRASH = 1 THEN GOSUB 5200: GOTO 
830 

770 PRINT "YOU'VE LOST 20 SECONDS, BUT Y 
OU'RE ABLE TO REJOIN THE R 

ACE" 

780 NUM = NUM + 10:SP = INT (2 * (C(C) / 
3) 

790 PNT = PNT + 50 
800 GOSUB 2330 
810 GOTO 570 
820 REM 

830 PRINT " . .AND CRASH! ! SI ! !" 
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840 PRINT " 

it 

850 PRINT "YOU ONLY COMPLETED "; INT (10 
* DIST) / 10;" METERS" 

860 PRINT "OR "; INT (DIST * 100 / RR) / 

100;" LAPS AND AT THAT" 

870 PRINT "STAGE WERE IN POSITION "; INT 
(FP) 

880 PRINT " 

»i 

890 GOTO 1050 

900 REM 

910 REM RACE OVER 

920 HOME 

930 EFLAG = 1 

940 FOR X = 1 TO 20 

950 PRINT TAB( X)"WELL DONE, ";A$;" !!" 

960 PRINT TAB( 21 - X)"WELL DONE ";A$;" 
! ! " 

970 NEXT X 

980 PRINT " 

it 

990 PRINT "YOU MANAGED TO LAST OUT THE F 

ULL ";LAP;" LAP RACE. . ." 

1000 PRINT " 



1010 GOSUB 2330 

1020 PRINT "YOU FINISHED IN POSITION "; 
INT (FP) 

1030 PRINT "AFTER STARTING IN 6TH POSITI 
ON ... " 
1040 GOSUB 2330 

1050 PRINT "YOUR AVERAGE SPEED WAS "; IN 
T (DIST * 180 / NUM) / 100;" KP 
H" 

1060 GOSUB 2330 

1070 IF RP < 1 THEN RP = 1 

1080 IF CP < 1 THEN CP = 1 

1090 PRINT "YOU WERE "; INT ( ABS (RP)); 
"TH FASTEST ON STRAIGHTS," 

1100 PRINT "AND "; INT ( ABS (CP)) ;"TH F 
ASTEST ON CORNERS." 
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1110 


PRINT 


: PRINT "PRESS 'S' FOR SAME R 


ACE, ' 


N f FOR 


NEW 


RACE, 'E' T 





END" 






1120 


GET 1$ 


: IF 


1$ < > "S" AND 1$ < > 


"N" AND 1$ < 


> "E 


" THEN 1120 


1130 


IF 1$ 


_ tigii 


THEN END 


1140 


GOSUB 


2240 




1150 


RESTORE 




1160 


IF 1$ 


_ tt g it 


THEN GOSUB 1490:LAP = 


L2AP : 


GOTO 60 






1170 


IF 1$ 


= "N" 


THEN HOME, : GOSUB 1250 


: GOTO 


60 






1180 


REM ^«*^c**>5: **************** 


1190 


REM NAME AND TRACK DATA 


1200 


INPUT 


"WHAT 


IS YOUR NAME, DRIVER "; 


A$ 








1210 


PRINT 






1220 


FOR X 


= 1 TO 3 


1230 


PRINT 


TAB( 


4 * X)"OK, GOOD LUCK, " 


;A$ 








1240 


GOSUB 


2330: 


NEXT X 


1250 


PRINT 


»» * ^ * * 










1260 


PRINT 


"WHICH RACE DO YOU WANT TO TA 


KE PART IN:" 






1270 


PRINT 






1280 


PRINT 


TAB( 


7)"BRITISH GRAND PRIX 


2650MT 


. 2 » 






1290 


PRINT 


TAB( 


7 ) "GERMAN GRAND PRIX 


1700MT 


:2" 






1300 


PRINT 


TAB( 


7)"ITALIAN GRAND PRIX 


2200MT 


:3" 






1310 


PRINT 


TAB( 


7)"M0NAC0 GRAND PRIX 


3100MT 


:4" 






1320 


PRINT 






1330 


PRINT 


TAB( 


7 ) "ENTER A NUMBER (1 TO 


4)" 








1340 


GET K$ 






1350 


IF K$ 


^ It J f! 


OR K$ > "4" THEN 1340 



1360 GP = VAL (K$) 

1370 PRINT "**************************** 

jjC % 5j« % jfc >J{ % >}C >}C >}C " 

1380 PRINT TAB( 8)"0K, THE " ; 
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1390 IF GP = 1 THEN PRINT "BRITISH"; 

1400 IF GP = 2 THEN PRINT "GERMAN"; 

1410 IF GP = 3 THEN PRINT "ITALIAN"; 

1420 IF GP = 4 THEN PRINT "MONACO"; 

1430 PRINT " RACE" 

1440 PRINT "**************************** 



1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 

RNERS 
1530 
1540 

00,250 
1550 
1560 



PRINT 
INPUT 

LAP = 
REM 
REM 

SP = 
FOR 
READ 

NEXT 
DATA 



: PRINT "OVER HOW MANY LAPS?" 
LAP: IF LAP < 1 THEN 1460 
INT (LAP + .5) :L2AP = LAP 

BRITISH DATA 
140 

X = 1 TO 9 
D(X) : REM DISTANCE BETWEEN CO 



X 



800,400, 250, 200, 250,300, 100, 1 



FOR X = 1 
READ C(X) 



TO 9 
REM 



RECOMMENDED MAXIMUM 



CORNERING SPEED 



1570 
1580 
150 
1590 
1600 



NEXT 
DATA 



X 



150,90, 175,200,200,90,90, 150 



FOR X = 1 
READ A(X) 



TO 9 
REM 



AVERAGE NUMBER OF M 



OVES ALLOWED BETWEEN CORNERS 
1610 NEXT X 

1620 DATA 8,4,2,2,2,2,1,1,2 

1630 APP = 800: WW = 10:QQ = 24:RR = 2650 

1640 IF GP = 1 THEN RETURN 

1650 REM ************************ 

1660 REM GERMAN DATA 

1670 SP = 85 

1680 FOR X = 1 TO 7 

1690 READ D(X) 

1700 NEXT X 

1710 DATA 600,200,100,150,250,200,200 
1720 FOR X = 1 TO 7 
1730 READ C(X) 
1740 NEXT X 

1750 DATA 90, 175, 120,90, 200,200, 175 
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1760 FOR X = 1 TO 7 

1770 READ A(X) 

1780 NEXT X 

1790 DATA 6,2,1,2,2,2,2 

1800 APP = 600:WW = 8:QQ = 17:RR = 1700 

1810 IF GP = 2 THEN RETURN 

1820 REM ************************* 

1830 REM ITALIAN DATA 

1840 SP = 108 

1850 FOR X = 1 TO 7 

1860 READ D(X) 

1870 NEXT X 

1880 DATA 800,300,100,150,300,350,200 

1890 FOR X = 1 TO 7 

1900 READ C(X) 

1910 NEXT X 

1920 DATA 120,90,90,150,200,120,150 

1930 FOR X = 1 TO 7 

1940 READ A(X) 

1950 NEXT X 

1960 DATA 8,3,2,1,3,3,2 

1970 APP = 800:WW = 8:QQ = 22:RR = 2200 

1980 IF GP = 3 THEN RETURN 

1990 REM ************************* 

2000 REM MONACO DATA 

2010 SP = 162.5 

2020 FOR X = 1 TO 14 . 

2030 READ D(X) 

2040 NEXT X 

2050 DATA 400 , 100 , 100 , 300 , 400 , 300 , 150 , 2 
00,200,200 
2060 DATA 150,150,200,250 
2070 FOR X = 1 TO 14 
2080 READ C(X) 
2090 NEXT X 

2100 DATA 175,150,175,200,120,200,175,9 
0,175,150 
2110 DATA 150,175,120,150 
2120 FOR X = 1 TO 14 
2130 READ A(X) 
2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 

2160 DATA 1,2,2,2 
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2170 APP = 400: WW = 15-.QQ = 30:RR = 3100 
2180 RETURN 

2190 REM ************************* 

2200 REM INITIALIZATION 

2210 HOME 

2220 GOSUB 8020 

2230 DIM A(14) ,C(14) ,D(14) 

2240 C = 1:FP = 6:PNT = 0:NC = 0:CP = 0: 

2250 AM = 0:RP = 0:APP = 

2260 NUM = 0; REM NUMBER OF MOVES 

2270 ENG = 100:BRAK = lOsTRAV = 0:DIST = 



2280 EFLAG = 
2290 X = 
2300 RETURN 

2310 REM ************************* 
2320 REM DELAY 

2330 FOR = 1 TO 1000; NEXT 

2340 RETURN 

5000 PZ = 200:DZ = 75 

5010 FOR TL = 1 TO 3 

5020 GOSUB 8000 

5030 NEXT TL 

5040 RETURN 

5200 PZ = 100:DZ = 255 

5210 GOSUB 8000 

5220 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 11, DZ: CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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FLIGHT 



10 REM FLIGHT SIMULATION 
15 REM APPLE IIE/TIC VERSION 
20 RPT = 

30 LD = INT ( RND (1) * 360) 
40 DIM E$(1000): REM THIS HOLDS 
RECORD 

50 DIM A$(7) ,C$(7) : REM THESE ARRAYS HO 
LD HORIZON AND COMPASS OUTPUT 
60 REM ******************** 

70 GOSUB 2320; REM INITIALIZE 

80 IF CRASH = THEN GOSUB 820; REM H 
ORIZON/COMPASS 

90 GOSUB 500: REM PRINTOUT 

100 IF CRASH = 1 THEN END 

110 IF LA = 1 AND UFLAG = 1 THEN PRINT 
"WELL DONE. A PERFECT LANDING!! 
": END 

120 IF LA = 1 AND UFLAG = THEN PRINT 
"YOUR WHEELS ARE UP": GOSUB 178 
0: GOTO 90 
130 T = AI: STALL = 

140 X$ = "":XZ = 0:XZ = PEEK ( - 16384) 
- 128: IF XZ > THEN X$ = CHR$ 
(XZ) 

150 IF X$ = "R" THEN RPT = 1 : GOTO 
160 IF RPT = 1 AND E$(CLOCK + 1) = 
EN RPT = 0: GOTO 140 

THEN X$ = E$(CL0CK + 1) 
THEN 140 



IF 
IF 



170 
180 
185 
190 

X$ 
200 IF 

RND (1) * 2 
210 IF AI 
220 IF X$ 
5 : IF EL y 
230 IF X$ 
- 5: IF EL 



RPT = 1 
0: GOTO 
RPT = 1 
X$ = "" 
POKE - 16368,0 
IF CLOCK < 999 THEN E$(CLOCK 



70 

ti h 



TH 



TAKEOV = 1 THEN 
- RND (1) * 
< 3 THEN 290 
= "Q" THEN EL 
60 THEN STALL 
= "A" THEN EL 
< - 70 THEN 



EL 
3) 



+ 1) = 
= INT (EL + 



= EL + 5 : EFLAG = 
= 1 

= EL - 5: EFLAG = 
STALL 



240 IF 



- 1 
STALL 



< > THEN GOSUB 1640 
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250 IF ALTIMETER < 1 THEN 290: REM PREV 
ENTS DRAMATIC TURNS ON THE GROU 
ND 

260 IF X$ = "Z" THEN WA = WA - .5: ANG = 
ANG -6: IF WA < - 3 THEN WA = 
- 3 

270 IF X$ = "M" THEN WA = WA + . 5 : ANG = 
ANG +6: IF WA > 3 THEN WA = 3 
280 ANG = INT (ANG + RND (1) * 2 - RND 
(1) * 2) 

290 IF X$ = " " THEN AI = AI + 8,5 
300 IF X$ = ".» THEN AI = AI - 7 
310 AI = AI - EL / 5 

320 IF UFLAG = 1 THEN AI = AI - 1.5:FUEL 
= FUEL - .5 

330 IF AI < THEN AI = 

340 IF AI > 400 THEN AI = 400 

350 IF X$ = "1" AND UFLAG = THEN UFLAG 

= 1: GOTO 370 

360 IF X$ = "1" AND UFLAG = 1 THEN UFLAG 
= 

370 FUEL = FUEL - ( ABS (T - AI) / 10) - 
3.75 

380 IF FUEL < 1 THEN GOSUB 1780 

390 IF TAKEOV = 1 THEN 420 

400 IF EL > 10 AND AI > 45 AND AI < 60 A 
ND UFLAG = 1 THEN TAKEOV' = 1 

410 IF TAKEOV = THEN ALTIMETER = 0: GO 
TO 450 

420 IF LA = AND AI < 30 THEN EL = EL - 
5: ALTIMETER = 9 * ALTIMETER / 
10 

430 ALTIMETER = ALTIMETER + INT (((EL + 
.1) * AI) + EFLAG * AI / 1000) / 
80 

440 IF ALTIMETER < 300 AND TAKEOV = 1 TH 
EN ALTIMETER = ALTIMETER + AI / 
30 + EL 

450 IF ALTIMETER < THEN GOSUB 1780: R 
EM CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE I 
T EASIER (OR EVEN HARDER) TO LA 
ND 
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470 IF ALTIMETER > 15 AND AI >/ 20 OR TAK 
EOV = THEN 80 
480 IF ABS (ANG - LD) < 13 OR ABS (ANG 
+ 360 - LD) < 13 THEN LA = 1 : GOTO 
80 

490 REM ****************** 
500 REM PRINTOUT 
510 HOME 

520 PRINT " HORIZON"; TAB( 20) "HEADING 

ti 

530 EV = INT (EL / 10) 
540 IF EV > 2 THEN EV = 2 
550 IF EV < - 2 THEN EV = - 2 
560 IF EV < > AND TAKEOV = 1 AND CRAS 
H = THEN GOSUB 1920 

570 PRINT ": : : " 

580 FOR J = 1 TO 7 

590 PRINT ": ";A$(J);" :";C$(J);" :" 
600 A$(J) = "" 
610 NEXT J 

620 PRINT ": : " 

630 DIST = DIST + ABS ( ( COS (EL)) * AI) 
/ 360 

640 CLOCK = CLOCK + 1 

650 PRINT " : RANGE "; INT (DIST * 10) / 1 
0;": TIME "; INT (CLOCK) / 10;" 
: " ; LD 

660 PRINT ": : " 

670 PRINT ": AIRSPEED : " ; INT (AI) 

675 IF AI < 20 THEN PRINT ">": GOTO 690 

680 PRINT ": "; LEFT$ (Q$, INT (AI / 20) 

^ . It y It 

690 PRINT ": ALTIMETER: "; INT (ALTIMETER 
); 

700 IF ANG < THEN PRINT TAB( 19)360 
+ ANG; " DEG." 

710 . IF ANG > = THEN PRINT TAB( 19)A 
NG; " DEG." 

720 MR = INT (ALTIMETER / 30): IF MR > 2 
THEN MR = 20 
725 IF MR = THEN PRINT ">": GOTO 740 
730 PRINT ": "; LEFT$ (Q$,MR) ;">" 
740 PRINT "-.FUEL : "; INT (FUEL) 
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750 PRINT ": "; LEFT$ (Q$ s 20 - INT (FUE 
L / 750)) ;">" 

760 PRINT : » 

770 PRINT " : ELEVATION : " ; EL ; " : M ; : GOSUB 
2210: PRINT U$ 

780 IF UFLAG = 1 THEN PRINT " : " ; TAB( 5 
)"> UNDERCARRIAGE DOWN < :" 

790 IF UFLAG = THEN PRINT " : " ; TAB( 6 
)"> UNDERCARRIAGE UP < :" 



795 


IF 


CRASH = 1 THEN END 




800 


RETURN 




810 


REM 






820 


REM 


ASSIGN HORIZON/COMPASS 




830 


IF 


ABS ( INT (WA + .5)) = 3 THEN 


G 


OSUB 


980 




840 


IF 


ABS ( INT (WA + .5)) = 2 THEN 


G 


OSUB 


1070 




850 


IF 


ABS ( INT (WA + .5)) = 1 THEN 


G 


OSUB 


1160 




860 


IF 


INT (WA + .5) = THEN GOSUB 


12 


50 






870 


REM 


NEXT TWO LINES USED TO GRADUALL 



Y STRAIGHTEN UP WINGS 
880 IF WA > THEN WA = WA - 2 
890 IF WA < THEN WA = WA + . 2 
900 IF WA > .2 THEN 1350 
910 FOR Z = 1 TO 7 
920 M$(8 - Z) = A$(Z) 
930 NEXT Z 
940 FOR Z = 1 TO 7 
950 A$(Z) = M$(Z) 
960 NEXT Z 
970 , GOTO 1350 
980 REM WA=3 OR -3 
990 A$(l) = " = " 

1000 A$(2) = " == » 

1010 A$(3) = " == < " 

1020 A$(4) = " == " 

1030 A$(5) = " == " 
1040 A$(6) = " == " 
1050 A$(7) = "== " 
1060 RETURN 

1070 REM WA=2 OR WA=-2 
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1080 


A$(l) 





» 


tt 


1090 


A$(2) 


_ 


tt 


tt 


1100 


A$(3) 




tt 


tt 


1110 


A$(4) 




tt 


. tt 


1120 


A$(5) 




tt 


tt 


1 130 


A$(6) 




tt 


_ tt 




A$(7) 




tt 


tt 


1 1 SO 


RETURN 






X X Vj \J 


REM 


WA 


= 1 


OR WA=-1 


1 1 70 

1 X / KJ 


A$(l) 




tt 


tt 


1180 


A$(2) 




tt 


tt 


1190 


A$(3) 




tt 


tt 


1200 


A$(4) 




tt 


tt 


1210 


A$(5) 




tt 


tt 


1220 


A$(6) 




tt 


tt 


1230 


A$(7) 




tt 


tt 


1240 


RETURN 






1250 


REM 


WA 


=0 




1260 


A$(l) 




tt 


tt 


1270 


A$(2) 




tt 


tt 


1 280 

1 L U U 


A$(3) 




tt 


tt 


1 9 QO 


A$(4) 




tt 


tt 


1300 


A$(5) 




tt 


tt 


1 310 


A$(6) 




tt 


tt 


1320 


A$(7) 




it 


tt 


1330 


RETURN 






1340 


REM 




1350 


REM 


ASSIGN COMPASS STRINGS 


1360 


F2 = 


ANG 


i 


Fl 


1370 


IF F2 < 





THEN FA = INT ((F2 + 


) / 30) 









1380 IF F2 > =0 THEN FA = INT ((F2 + 
15) / 30) 
1390 IF FA = 12 THEN FA = 
1400 C$(l) = " .N. " 

1410 IF FA = 11 THEN C$(2) = " .@: . . ": 
GOTO 1450 

1420 IF FA = THEN C$(2) = " . .@. . ": 
GOTO 1450 

1430 IF FA = 1 THEN C$(2) = " . . :@. ": 
GOTO 1450 
1440 C$(2) = " . . : . . " 
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" W@-X— E" 
» W— X-@E" 



@." 



(a » 

o « • V- • 



1450 IF FA = 10 THEN C$(3) = " .@ : 
GOTO 1480 

1460 IF FA = 2 THEN C$(3) = " . e : 
GOTO 1480 

1470 C$(3) = " . . : 

1480 IF FA = 9 THEN C$(4) 
GOTO 1510 

1490 IF FA = 3 THEN C$(4) 
GOTO 1510 

1500 C$(4) = " W — X — E" 

1510 IF FA = 8 THEN C$(5) 
GOTO 1540 

1520 IF FA = 4 THEN C$(5) 
GOTO 1540 

1530 C$(5) = " . . : . 

1540 IF FA = 7 THEN C$(6) 
GOTO 1580 

1550 IF FA = 8 THEN C$(6) 
GOTO 1580 

1560 IF FA = 5 THEN C$(6) 

GOTO 1580 

1570 C$(6) = " . . : . . » 

1580 C$(7) = " .S. " 

1590 IF ANG > 360 THEN ANG = ANG - 360 

1600 F2 = ANG 

1610 IF W > THEN W = W - .4 

1620 IF W < THEN W = W + .4 

1630 RETURN 

1640 REM STALL/FALL 

1650 IF STALL = - 1 THEN 1710 

1660 FOR J = 1 TO 10 

1670 PRINT TAB( J)"YOU HAVE STALLED!" 

1680 NEXT J 

1690 AI = AI / 4 

1700 RETURN 

1710 FOR J = 1 TO 10 

1720 PRINT TAB( J) "UNCONTROLLED DIVE! 

1730 PRINT TAB( 21 - J)"PULL UP!!" 

1740 NEXT J 

1750 ALTIMETER = 4 * ALTIMETER / 5 

1760 RETURN 

1770 REM ******************** 
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1780 REM CRASH 
1790 CRASH = 1 
1800 ALTIMETER = 

1810 M$ = "** *C R** A ** S* H* ! !*" : RE 
M 25 CHARACTERS LONG 
1820 FOR J = 1 TO 20 
1830 PRINT TAB( J) "CRASH!" 
1840 PRINT TAB( 21 - J)"CRASH!" 
1850 NEXT J 
1860 FOR J = 1 TO 7 
1870 G = INT ( RND (1) * 11) + 1 
1880 A$(J) = MID$ (M$,G,14) 
1890 NEXT J 
1900 RETURN 
1910 REM 

1920 REM ADJUST HORIZON 

1930 G$ = " ": REM 14 SPACE 

S 

1940 ON EV + 3 GOSUB 1960,2020,2070,2080 
,2140 
1950 RETURN 
1960 REM EV=-2 
1970 FOR J = 1 TO 4 
1980 A$(J) = A$(J + 3) 
1990 NEXT J 

2000 A$(5) = G$;A$(6) = G$:A$(J) = G$ 

2010 RETURN 

2020 REM EV=-1 

2030 FOR J = 1 TO 6 

2040 A$(J) = A$(J + 1) 

2050 NEXT J 

2060 A$(7) = G$ 

2070 RETURN : REM EV=0 

2080 REM EV=1 

2090 FOR J = 6 TO 1 STEP - 1 

2100 A$(J + 1) = A$(J) 

2110 NEXT J 

2120 A$(l) = G$ 

2130 RETURN 

2140 REM EV=2 

2150 FOR J = 4 TO 1 STEP - 1 
2160 A$(J + 3) = A$(J) 
2170 NEXT J 
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2180 A$(l) = G$:A$(2) = G$sA$(3) = G$ 
2190 RETURN 

2200 REM ********************** 
2210 REM INPUT INTO COMMAND NAME 
2220 U$ = " " 

2230 IF X$ = " " THEN U$ = "THROTTLE ON" 
2240 IF X$ = "." THEN U$ = "THROTTLE OFF 

it 

2250 IF X$ = "Q" AND ALTIMETER > THEN 

U$ = "CLIMB" 
2260 IF X$ = "Q" AND ALTIMETER = THEN 

U$ = "NOSE UP" 
2270 IF X$ = "A" THEN U$ = "NOSE DOWN" 
2280 IF X$ = "Z" THEN U$ = "BANK LEFT" 
2290 IF X$ = "M" THEN U$ = "BANK RIGHT" 
2300 RETURN 

2310 REM ********************* 
2320 REM INITIALIZATION 
2330 HOME 

2350 Q$ = " ... REM 2 

1 CHARACTERS IN STRING 

2360 UFLAG = 1 : REM UNDERCARRIAGE - 1 - 
DOWN, - UP 

2370 EFLAG =-0: REM CLIMB RATE 

2380 ANG = 0:TAKE0V = 0:LA = 

2390 AI = 0: REM AIRSPEED 

2400 DIST = 0: REM DISTANCE COVERED 'RAN 
GE' 

2410 ALTIMETER = 

2420 EL = 0: REM ANGLE OF ELEVATION 

2430 WA = 0: REM 'WING ANGLE; USED IN HO 
RIZON PRINTOUT 

2440 FUEL = 750:CRASH = 0:F2 = 0:F1 = 0: 
REM FOR DIRECTION CHANGE/COMPA 
SS ROUTINE 

2450 CLOCK = 0: REM TIME 

2460 X$ = "" 

2470 RETURN 
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10 REM SPACE LANDING SIMULATION 

20 FLAG=INT (RND <VAL ( R I GHT* ( T IS , 2 > ) > ) : REM 

RANDOMIZE 

3.0 REM ^^^^^^^^^^■^•^•■^•■^•■^■^••^■^••^•^''^•■^■^•^•^■■^•■^••^•■if"^- 

40 REM SET STARTING VALUES 

45 POKE 53280, 0: POKE 53281 ,0 

50 FUEL=200+RND < 1 > *40 

60 VELOC I TY=RND ( 1 ) *20-6 

70 HE I GHT=500-RND < 1> *10 

80 PRINT" 

{CLR> <WHT> " 

90 PRINT" FUEL" J TAB < 12) ; " VELOCITY" ; TAB < 
24 ) ; " HE I GHT " 

100 REM ^^^^^^^^^^^^^^^^^^^^^^^^-fc-X--^- 
1 10 REM MAJOR CYCLE 
120 GOSUB 430 

.130 IF FUEL<=0 THEN FUEL=0: THRUST=0 : GOTO 

170 
140 GET A* 

150 IF AS>< "0" OR A$>"9" THEN 140 
160 THRUST=VAL < A3»> +. 1 
170 FUEL=FUEL -THRUST 
180 FLAG=THRUST-2 
19.0 THRUST=0 

200 HE I GHT=HEIGHT+ VELOCITY* FLAG/ 4 
210 VELOC IT Y= VELOC ITY+FLAG 
220 IF HE I GHT < =10 THEN 240 
230 IF HEIGHT > 10 THEN 12.0 

240 IF VEL0CITY>-9 AND VELOCITY<5 THEN 2 
90 

250 GOSUB 410 
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260 PRINT "YOU HAVE CRASHED INTO THE SURF 
ACE. . . " 

270 IF HEIGHT >0 THEN HE I GHT = -HE I GHT 
280 GOTO 320 

290 GOSUB 4000 : PR I NT " YOU HAVE LANDED SAF 
ELY ! " 

300 PR I NT "YOUR SKILL RATING IS" INT ( - 1000 
*FUEL/ (VELOCITY-HEIGHT) ) 
310 HE I GHT=0 
320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READINGS WERE 

a II 

340 PRINT" FUEL"? TAB (12) J » VELOC I TY " ; TAB 
(24) ; " HEIGHT" 

350 GOSUB 430 
360 GOSUB 410 
370 IF HE I GHT >=0 THEN END 

380 PRINT H NEW CRATER ON MOON " INT (ABS ( 100 

*<HEIGHT+. 2> /3) ) / 100 "METERS DEEP ! " 

390 PRINT " YOUR SKILL RATING IS "INT (100* 

FUEL/ (VELOCITY-HEIGHT) ) 

400 END 

410 PRINT" 



420 RETURN 

430 PR I NT INT ( 1 00*FUEL ) / 1 00 % 

440 PRINT TAB (12) 5 - INT ( 100*VELOC ITY ) / 100 

5 

450 IF HEIGHT>=0 THEN PRINT TAB (24) ; INT ( 

100*HEIGHT) / 100 

460 IF HE I GHT <0 THEN PRINT 

470 RETURN 

4000 SID=54272 

4010 FOR L 1=0 TO 23 

4020 POKE SID+L1 ,0 

4030 NEXT LI 

4040 POKE SID+24, 15 

4050 POKE SID+5, 15 

4060 POKE SID+6, 255 

4070 POKE SID+4, 17 

4080 FOR LI =48 TO 220 STEP . 7 

4090 POKE SID+1 ,L1 

4100 NEXT LI 
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4110 FOR LI =28 TO 200 

4120 POKE SID+1 , LI 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 

4150 POKE SID+1 , LI 

4160 NEXT LI 

4170 POKE SID+1 ,0 

4180 RETURN 
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10 REM MONTE CARLO DEMONSTRATION 

20 GOSUB 370: REM INITIALISE 

30 REM ^^^^^^^^^^^^Af.^ 

40 REM MAJOR CYCLE 

45 PR I NT " 

CCLR> " 

50 GOSUB J 00: REM PRINT 

60 IF P=EP AMD Q=EQ THEN PR I NT : PR INT " DEM 

ONSTRAT I ON OVER " : END 

70 GOSUB 230: REM GENERATE MOVE 

80 GOTO 50 

90 REM 

100 REM PRINTOUT 

3 10 ASM P , Q > = » O " 

120 M=M+ I 

130 PRINT" 

i HOME > " : PRINT : PR I NT 

1 4 PRINT "MO V E " M 

150 FOR X=l TO 10 

160 FOR Y=l TO 10 

170 PR I NT AS (X, Y) ; " "? 

180 NEXT Y 

190 PRINT 

200 NEXT X 

210 RETURN 

220 REM 

230 REM GENERATE MOVE 
240 A* f P , Q ) = " . " 

250 8=0 

260 T= I NT ( RND ' 1 ) *4 > + 1 

270 ON T GOSUB 310,320,330,340 

280 IF G=0 THEN 260 

290 IF G=l AMD RND ( 1 ) > . 5 THEN 260 
300 RETURN 

310 IF P>1 THEN P=P- 1 : G=G+ 1 : RETURN 
320 IF P< 10 THEN P=P+1 : G=G+1 : RETURN 
330 IF Q>1 THEN Q=Q- 1 : G=G+ 1 : RETURN 
340 IF Q< 10 THEM Q=Q + 1 : G=G+1 : RETURN 
350 RETURN 

360 REM ^^^^^^■^^.^.^f^.^4(.^^^.^.^. 
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370 REM INITIALISE 

380 POKE 5328.0* , 1 POKE 53231 , 0: PRINT" 
CCLR> " 

390 X=RND 'MAL (RIGHTS (TIS>, 2) ) ) : REM 

RANDOMIZE 

400 DIM A* ( 10, 10) 

410 FOR X=l TO 10 

420 FOR Y=l TO 10 

430 A* ( X j Y ** = " . " 

440 NEXT Y 

450 NEXT X 

460 PRINT: PRINT 

470 PR I NT "ENTER FIRST START CO-ORDINATE 
(LESS THAN 10)" 

480 INPUT P 

490 IF P< 1 OR P>10 THEM 480 

500 PRINT "ENTER SECOND START CO-ORDINATE 

(LESS THAN 10) " 

510 INPUT 

520 IF Q< 1 OR 0>10 THEN 510 
530 PRINT: PRINT 

540 PR I NT "ENTER FIRST END CO-ORDINATE (L 
ESS THAN 10) " 

550 INPUT EP 

560 IF EP< 1 OR EP>10 THEN 550 

570 PR I NT "ENTER SECOND END CO-ORDINATE ( 

LESS THAN 10) " 

580 INPUT EG! 

590 IF EGK 1 OR EQ>10 THEN 580 
600 A* ( P , Q ) = " O " 
610 AS<EP s E0)="X" 
620 RETURN 
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10 REM SIMULTANEOUS EQUATIONS 

20 POKE 53280", : POKE 53280, 0: PRINT " 

<CLR> " 

30 7 = RNP ' V'AL 'RIGHT* (T I*, 2) > ) : REM 

RANDOMIZE 

40 HS=0 

50 FD=RND(0> 

60 PRINT: PR I NT "DEC AY FACTOR IS"FD 
70 GOSUB 550 
80 PRINT" 
CCLR> " 

90 PRINT: PRINT 

100 PR I NT "ENTER NUMBER OF CELL X TO 

START (LESS THAN 40) " 
1J INPUT CP: IF CP< 1 OR CP>39 THEN 13.0 
120 PRINT: PRINT 

130 PRINT " WE HAVE "CP" X CELLS" 
140 PRINT: PRINT 

150 PR I NT "ENTER NUMBER OF CELL Y TO 

START (LESS THAN 40) " 
160 INPUT EP: IF EP< 1 OR EP>39 THEN 160 
170 PRINT " 

{ CLR } " : PRINT : PR I NT " PLEASE STAND BY. . . " 
180 GOSUB 550: PRINT" 
CCLR} " 
190 DA=1 

200 IF CP>EP/FD THEN CP=EP/FD 
210 PRINT" » 

215 IF INT i CP) < THEN CP=0 

216 IF IMT(EP><0 THEN EP=0 
220 PRINT "TIME ELAPSED: "DA 
230 PRINT INT (CP^ "CELL X" 
240 PRINT INT (EP) "CELL Y" 
250 REM 

260 REM MAJOR CYCLE 
270 GOSUB 550 
280 PA=DA+ 1 

290 PRINT" " 

300 PRINT "TIME ELAPSED: "DA 
310 IF CP>EP/FD THEN CP=EP/FD 
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320 REM EQUATIONS FOLLOW % MODIFY PARTS 

OF THEM TO SEE WHAT HAPPENS 
330 CP=CP+ ( <8#CP-CP*EP/3) *FD) 
340 EP=EP+ ( <8#EP-EP#CP/3)*.01) 
350 PRINT INT (CP) "CELL X" 
360 PRINT INT (EP) "CELL Y " 
370 IF EP<2 OR CP<2 THEN 410 
330 GOSUB 550 
390 GOTO 280 
400 REM 

410 IF DA >HS THEN HS=DA 
420 PRINT : PRINT 

430 PR I NT "YOUR CELL CLASH SIMULATION SUR 
VIVED" 

440 PR I NT " FOR " DA " T I ME PERIODS." 

450 PRINT " 

_____ H 

460 PR I NT "THE BEST SURVIVAL TIME SO FAR 
IS"HS 

470 GOSUB 550 

480 PRINT" 

_____« 

490 PR I NT "DO YOU WANT A NEW RUN < Y OR N) 

<p »» 

500 GET A* 

510 IF ASK > " Y " AND A*< > " N " THEN 500 
520 IF A*= " Y " THEN PRINT " 
{CLR> " : GOTO 60 

530 PR I NT "OK" : PRINT: PRINT: END 

540 REM 

550 FOR J=l TO 2000: NEXT 
560 RETURN 
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3.0 REM CONWAY'S LIFE SIMULATION 

20 REM DEFINED INITIAL COLONY 

30 GOSUB 460: REM INITIALISE 

40 REM 

50 REM MAJOR CYCLE 

60 GENERAT I N=GENERAT I N+ 1 

70 GOSUB 290: REM PRINTOUT 

80 GOSUB 1 10: REM EVOLVE 

90 GOTO 60 

100 REM ************************ 

1 10 REM EVOLVE 

120 FOR X=2 TO 12 

130 FOR Y=2 TO 12 

140 C=0 

150 IF A* <X-i , Y-l ) =»X" THEN C=C + i 

160 IF AS < X - 1 , Y > = " X " THEN C = C + 1 

.170 IF ASO<-l, Y+l ) = " X " THEN C = C + 1 

180 IF AS (X, Y-l ^ = "X" THEN C = C + 1 

190 IF AS <X, Y+l ) ="X" THEN C = C + 1 

200 IF A$ (X+l , Y-l ) = ,, X" THEN C=C + 1 

210 IF AS ( X + 1 , Y ) = " X " THEN C = C + 1 

220 IF A* (X+l , Y+l ) ="X" THEN C=C+1 

230 IF AS (X , Y ) = " X " AND C<>2 AND C<>3 THE 

N BS (X s Y> = CHRS (32) 

240 IF A*5( X , Y ) = " " AND C = 3 THEN BS ( X , Y > = 

I! V< I! 

25.0 NEXT Y 

260 NEXT X 

270 RETURN 

230 REM 

290 REM PRINTOUT 

300 PRINT" 
< CLR > " 

310 PRINT 

320 PR I NTTAB ( 4 > ; » GENERAT I ON " GENERAT I N 

330 PRINT 

340 FOR X=2 TO 12 

350 FOR Y=2 TO 12 

360 AS ( X ? Y) =B$(X, Y) 

370 PRINT A$(X,Y) | 

380 NEXT Y 
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39.0 FOR Y=12 TO 2 STEP -1 

4.00 PRINT A* < X , Y > J 

410 NEXT Y 

420 PRINT 

430 NEXT X 

440 RETURN 

450 REM 

460 REM INITIALISE 

470 POKE 53230,0: POKE 53231 , 0: PRINT" 
{ CLR > { PUR } " 

480 D-RND < VAL (RIGHT* (TI*, 2) ) ) : REM 
RANDOMIZE 

500 DIM AS (13, 13), BS (13, 13) 

510 PRINT! PRINT" PLEASE STAND BY..." 

520 FOR X=l TO 13 

530 PRINT 14-XJ 

540 FOR Y=l TO 13 

550 REM FILL ARRAY WITH BLANKS 

560 A* < X, Y) -CHRS ( 32) 

570 B* ( X , Y * =A* ( X , Y ) 

580 NEXT Y 

590 NEXT X 

600 READ D: IF D=99 THEN 630 

610 READ E : A* ( D , E ) = " X " : BS ( D , E ) = " X " 

620 GOTO 600 

630 GENERATING 

640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 

660 DATA 7,7 

670 DATA 3,6,8,8,9,5,9,9 

700 DATA 99 
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100 REM ROBOT LOGO 

110 GOSUB 173.0: REM INITIALISE 

120 GOTO 490 

130 REM 

140 REM 

150 REM 

160 REM 

170 REM 

130 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 

320 DATA 

330 REM 

340 REM INT UX,AX 

350 UX=INT <UX + . 5) : AX=INT ( AX+ . 5 ) 
360 RETURN 

370 REM K***********^************.** 
380 REM PRINT OUT 

390 PRINT " 
{ CLR 1 " 

400 PR I NT " STEP " PSN " > " J AS <PSN) : PRINT 

410 FOR 3=1 TO DEPTH 

420 FOR K=l TO BREATH 

430 PRINT Z* ( J, K) 5 

440 NEXT K 

450 PRINT 

460 NEXT J 

470 RETURN 

480 REM ^^^^^^^**^^^^^-^^--?f-)f--^-5f-?f-?(-^ 
490 REM READ PROGRAM 
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50.0' COUNT=COUNT+l 

510 READ AS (COUNT) 

520 IF AS (COUNT) THEN 550 

530 IF COUNT < 20 THEN 500 

540 REM 

550 REM EXECUTE PROGRAM 

560 PSN=0*. REM PROGRAM STEP NUMBER 

570 PSN=PSN+i 

580 IF PSN=21 THEN 58.0: REM END 

590 FLAG=0 



600 


M*= 


:A$ <PSN> 








610 


IF 


M35="-#" 


THEN 610: REM END 




620 


N*= 


=LEFT* (M* s 2) 






630 


IF 


N$="ST" 


THEN 


560: REM START 


AGAIN 


640 


IF 


NS="PR" 


THEN 


GOSUB 380 : REM 


PR INTO 


UT 












650 


IF 


N$5="FO" 


THEN 


FLAG= 1 




660 


IF 


N*= " BA " 


THEN 


FLAG=2 




670 


IF 


N*="TU" 


THEN 


FLAG=3 




680 


IF 


N*= " HO " 


THEN 


FLAG=4 




690 


IF 


hH5="CL " 


THEN 


FLAG=5 




700 


IF 


N*= "GO" 


THEN 


FLAG=6 




710 


IF 


N3== " RA " 


THEN 


FLAG-7 




720 


IF 


NS>= " RE " 


THEM 


FLAG=8 




730 


IF 


NS="EN " 


THEN 


FLAG=9 




740 


IF 


N*= "FA" 


THEN 


FLAG=10 




75.0 


ON 


FLAG GOSL1B 7 


80 , 940 , 1 000 , 1 1 6.0 , 1 220 



, 1 260 , 1 400 , 1 460 , 1 530 , 1 580 

760 GOTO 570 

-770 ppft 

780 REM FORWARD 

79.0 M*=MID* <MS, 4) 

8.00 IF ASC (MS) =87 THEM M*=M I D* < MS , 6 ) 

810 FS="F" 

820 NUM=VAL(M*> 

830 FOR E=l TO NUM 

84.0 IF UX< 1 OR UX>DEPTH THEN 88.0 

85.0 IF AX< 1 OR AX >BREATH THEN 83.0 

860 Z*(UX ? AX)=TS 

83.0 IF FS= " F " THEN UX=UX + UP : AX=AX + AC 

390 IF F*= " B " THEN UX=UX-UP : AX=AX- AC 

9.0.0 GOSUB 340 

910 NEXT E 
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920 RETURN 

^? "3-"<$ E£ M *X* "X* "X* "X* "X* "X* "X" "Xt *X" "X* "X* "X* *X* 1 X* "X" Xt "X* *^ *X* *X* "X* "X* "X" 1 X" 'X 1 "X" "X" "X* 
940 REM BACK 
950 MS=MIDS (MS, 4) 

960 IF ASC (MS) =78 THEM MS=MIDS (MS, 3) 
970 FS="B" 
980 GOTO 820 

990 REM "X"'X" X"X"K"X"X"^' ¥ X X X X X X X X X X X - X" X'"X"X" X" X X" X" 
1000 REM TURN 
1010 MS=MIDS (MS, 4) 

1020 IF ASC (MS) =78 THEN MS=M I DS < MS , 3 ) 

1030 NUM=VAL (MS) 

1040 Y= I NT ( < NUM+ 1 7 . 5 ) / 45 ) 

1050 IF Y=0 OR Y=8 THEN RETURN 

1060 FOR 1=1 TO Y 

1070 IF UP=-1 AMD AC=0 THEN AC=1 : GOTO 11 

30 

1080 IF UP=0 AND AC=1 THEN UP=1 : GOTO 113 



1090 IF UP=1 AND AC=0 THEN AC=-1 : GOTO 1 1 
30 

1 1 00 IF UP=0 AND AC=-1 THEN UP=-1 : GOTO 1 
1 30 

1110 IF UP=-1 AND AC=-1 OR UP=1 AND AC=1 

THEN AC=0;GOTO 1130 
1120 IF UP=-1 AMD AC=1 OR UP=1 AND AC = -1 

THEN UP=0 
1130 NEXT J 
1 140 RETURN 

1150 REM *************************** 
1160 REM HOME 

1170 AX=INT( ( BREATH + .5) /2) 
11 80 UX=INT ( (DEPTH+. 5) /2> 
1 190 UP=- 1 : AC=0 : REM FACES UP 
1200 RETURN 

1210 REM X X X X X X "X X X X X X X"X X X X' X' X X" X X X X X X X 
1220 REM CLEAN 
1230 GOSUB 1870 
1240 RETURN 

1 250 REM XXXXXXXXXXXXXXX)^XXXXXXXXXXX 
1260 REM GO X , Y 

1270 P=0 
1280 P=P+1 
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1290 IF M I BS ' MS , P , 1 ) = " , " THEN 1320 

130.0 IF P< LEM ( MS ) THEN 1280 

1310 RETURN : REM ERROR 

1320 UX=VAL (MIDS <MS S 4, P-l ) ) 

1330 AX=VAL (RIGHTS (MS, LEN (MS) -P) > 

1340 GOSUB 340 

1350 IF UX<1 OR UX>DEPTH THEN 1380 

1360 IF AC< 1 OR AO BREATH THEN 1380 

1370 Z*(UX,AX)=RS 

1380 RETURN 

1390 REM '^■■^"^••^•^■■^'^■•^■^•■^(•■^■■^(■^f 

1400 REM RANDOM 

1410 AX=INT (RND ( 1 ) *BREATH) 

1420 UX= I NT ( RND ( 1 ) *DEPTH ) 

1 430 Z* ( UX , AX ) =RS 

1440 RETURN 

1450 REM •^■■^■■^••^•^(•■^•^•■^•■Jf •^••^•^f •^■^■^••^•Jf 

1460 REM REPEAT 

1470 MS=MIDS (MS, 4) 

1480 IF ASC (MS) =69 THEN MS=MIDS ( MS, 5 ) 

1490 RECOUNT=VAL (MS) 

1500 MARKER=PSN 

1510 RETURN 

1520 REM 

1530 REM END REPEAT 

1540 RECOUNT=RECOUNT- 1 

1550 IF RECOUNT >0 THEN PSN=MARKER 

1560 RETURN 

X 5 f$ F£EEf*t "X* *Xr "X" "X* "X* -X* "X* "X* "X - X- "X" X* *X" K* -Xt 'X* "X* "X* "X* "X* "X* "X* "X* "X* *X* "X* *X" 

1580 REM FACE 

1590 MS=MIDS (MS, 4) 

1600 IF ASC (MS) =69 THEN MS=M I DS ( MS , 3 ) 

1610 NUM=VAL (MS) 

1620 Y= I NT ( (NUM+ 17.5) / 45) #45 

1630 IF Y=0 OR Y=360 THEN UP=-1:AC=0 

1640 IF Y=45 THEN UP=-1 : AC=1 

1650 IF Y=90 THEN UP=0: AC=1 

1660 IF Y=135 THEN UP=1 : AC=1 

1670 IF Y=180 THEN UP=1 : AC=0 

1680 IF Y=225 THEN UP=1 : AC=-1 

1690 IF Y=270 THEN UP=0: AC=-1 

1700 IF Y=315 THEN UP=-1 : AC=-1 

J 710 RETURN 
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172.0 REM **^**^********^**Af-*-}<--Jf--iJ--Jf--Jf-**-}t 

173.0 REM INITIALISE 

1740 POKE 53280,0: POKE 5328 1,0: PR I NT " 
{CLRV 

1750 J = RND < VAL ( R I GHTS ( T IS , 2 ) ) ) : REM 

RANDOMIZE 

1770 BREATH=40: REM CHARACTERS ACROSS 

1780 DEPTH=24:REM CHARACTERS DOWN 

1790 BREATH=BREATH- 1 

1800 DEPTH=DEPTH-3 

181 UP=-1 : AC =0: REM STARTS FACING UP 

1820 DIM AS (20) : REM FOR ROBOT PROGRAM 

1830 DIM Z$ ( DEPTH , BREATH ) : REM DISPLAY 

1840 T*="X" : REM PUT SYMBOL HERE YOU 

WANT TO USE FOR ROBOT ' S TRAIL 

1850 AX=0:UX=0 

I860 REM FILL ARRAY WITH SPACES 

1870 FOR 7=1 TO DEPTH 

1880 FOR K=l TO BREATH 

1890 ZsS C J , K> =" " 

1 900 NEXT K 

1910 NEXT J 

1920 RETURN 
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100 REM POINT-DUTY ROBOT 

110 GOSUB 1730: REM INITIALISE 

J 2.0 GOTO 49.0 

130 REM **************************** 

140 REM 

150 REM 

.160 REM 

170 REM 

130 REM 

190 REM 

200 REM 

21.0 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

230 REM 

290 REM 

300 REM 

310 REM 

320 DATA 

330 REM **************************** 

340 REM INT UX , AX 

350 UX=INT t UX+. 5) : AX= I NT ' AX + . 5 ) 

36.0 RETURN 

*Q £5 $5? f*£ |~ 4£ffi , X"ffi^ffi ffi 'X"^ ffi ffi^ ^ "^ffi ffi ffi' X " X K"X"X" ^ " v ( ' " ^"^"^* > ^" 

490 REM READ PROGRAM 

5.00 COUNT=COUNT+ 1 

510 READ A»C COUNT) 

520 IF AS (COUNT) ="*" THEN 550 

53.0 IF COUNT < 20 THEN 500 

540 REM **************************** 

550 REM EXECUTE PROGRAM 

56.0 PSN-0: REM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

580 IF PSN=21 THEN 580: REM END 

590 FLAG=0 

600 M^=A«(PSN) 

610 IF M*="*" THEN 610: REM END 
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620 


N*= 


=LEFTS (MS, 2) 




630 


IF 


NS= " ST " 


THEM 


560 : REM START AGAIN 


650 


IF 


NS="FO" 


THEN 


FLAG= 1 


660 


IF 


NS= " EA " 


THEN 


F"" I— $\ £3 "*~ 2 


670 


IF 


N*="TU" 


THEN 


FLAG=3 


680 


IF 


ns= " HO " 


THEN 


FLAG=4 


700 


IF 


MS= " GO " 


THEN 


FLAG=5 


710 


IF 


x MS= " RA " 


THEN 


FLAG=6 


720 


IF 


NS = " RE " 


THEN 


FLAG=7 


730 


IF 


NS= "EN " 


THEN 


FLA8=8 


740 


IF 


jH|<a=— " F A " 


THEN 


FLAG=9 


750 


ON 


FLAG GOSUB 730 , 940 , 1 000 , 1 .1 60 , I 260 



, 1400, ,1 460, 153.0, 1580 
760 GOTO 570 
770" REM 

780 REM FORWARD 
790 MS=MIDS (MS, 4) 

800 IF ASC (MS) =87 THEN MS=MIBS (MS, 6> 

8 j FS= " F " 

820 NUM=VAL (MS) 

830 FOR E=l TO MUM 

840 IF UX<1 OR UX>DEPTH THEN 880 
850 IF AX<1 OR AX >BREATH THEN 880 
860 GOSUB 2000 

880 IF FS="F" THEN UX=UX+UP : AX=AX+AC 
890 IF FS="B" THEN UX=UX-UP : AX=AX-AC 
900 GOSUB 340 
910 NEXT E 
920 RETURN 

930 REM *##**¥r*#*#*#***##*****x-*X*** 
940 REM BACK 
950 MS=MIBS ( MS, 4) 

960 IF ASC ( MS) =75 THEN MS=MI DS ( MS , 3 ) 
970 FS="B" 
980 GOTO 820 

990 REM ^***^***^^*#^*******-}f--J{-*-X-#**-^ 
1000 REM TURN 
1010 MS=MIDS <MS, 4) 

1020 IF ASC (MS) =78 THEM MS=MIDS (MS, 3) 

1 030 NUM=VAL ( MS) 

1040 Y= I NT ( (NUM+1 1 . 25) /22. 5) 

1050 IF Y~0 OR Y=16 THEN RETURN 

1060 FOR J=l TO Y 
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1065 IF UP=-2 AMD AC=0 OR UP-2 AMD AC -2 
THEN AC=1 : GOTO 1 130 

1070 IF UP=-2 AMD AC=1 THEM AC=2: GOTO 11 

30 

1075 IF UP=-2 AND AC =2 OR UP=0 AND AC =-2 

THEM UP=- I : GOTO 1130 
1080 IF UP = -1 AMD AC=2 OR UP=i AMD AC = -2 

THEM UP=0: GOTO 1130 
1085 IF UP=0 AMD AC=2 OR UP=2 AND AC=-2 
THEM UP= 1 : GOTO 1 1 30 

1090 IF UP=1 AMD AC=2 THEM UP=2: GOTO 113 



1095 IF UP=2 AMD AC=1 THEN AC=0: GOTO 113 



1 100 
30 

I 105 
130 

I I 10 
1 1 30 
1115 
1 1 30 
1 1 20 
1 130 
1 1 40 
.1 1 50 
1 1 60 
1 170 
1 1 80 
1 J 90 
1 200 
1210 
1220 
1230 
1240 
1250 
1260 
1 270 
1 280 
.1 290 
1 300 
1310 
1320 



IF UP=2 AND AC=0 THEN AC = - 1 : GOTO 11 

IF UP=2 AND AC=-1 THEN AC=-2: GOTO 1 

IF UP=-1 AND AC=-2 THEN UP=-2: GOTO 

IF UP=~2 AND AC=-2 THEN AC=-l:GOTO 

IF UP=-2 AND AC = -1 THEN AC=0 

NEXT J 

RETURN 

REM 

REM HOME 

AX- I NT ( ( BREATH+ . 5 ) / 2 ) 

UX=INT < ( DEPTH+ . 5 > /2) 

UP=-2: AC=0: REM FACES UP 

RETURN 

rem ^"jf^"^^ y y x y ¥: "X' 'M ""^•^'•^••^••^••y-"^' 

REM CLEAN 
GOSUE 1870 
RETURN 
REM 

REM GO X,Y 

P=0 

P=P+1 

IF M I D* ' M* , P , 1 ) = M , " THEN 1320 
IF P<LEN <M«> THEN 1280 
RETURN: REM ERROR 
UX=VAL (MID$(M*,4,P-1) ) 
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1330 AX=VAL 'RIGHTS (MS, LEN (MS) -P) ) 
1340 BOSUB 340 

J 350 IF UX< 1 OR UX>DEPTH THEN 1380 
1360 IF AC<1 OR AOBREATH THEN 1380 
1370 GO SUB 2000 
1380 RETURN 

1390 REM ************************#%:*■ 

1400 REM RANDOM 

1410 AX=INT ( RMD < 1 ) *BREATH) 

1420 UX= I NT ( RND ( 1 ) -H-DEPTH ) 

1430 GOSUB 2000 

1440 RETURN 

1450 REM *************************** 
1460 REM REPEAT 
1470 MS=MIDS (MS, 4 ) 

1430 IF ASC(MS>=69 THEN MS=M I DS ( MS , 5 ) 
1490 RECOUNT=VAL < MS ) 
1500 MARKER=PSN 
1510 RETURN 

1520 REM *************************** 

1530 REM END REPEAT 

1540 RECOUNT=RECOUNT-l 

1550 IF RECOUNT >0 THEN PSN=MARKER 

1560 RETURN 

1570 REM *************************** 
1580 REM FACE 
1590 MS=MIDS <MS, 4) 

1600 IF ASC (MS) =69 THEN MS=MIDS < MS, 3 > 
1610 NUM=VAL (MS) 

1620 Y=INT ( (NUM+17. 5) ,'45>*45 



1630 


IF 


Y _ 


OR Y=360 THEN UP= 


-2 


1635 


IF 


•V — 
1 — 


22. 5 THEM UP=-2: AC= 


1 


1640 


IF 


Y= 


45 THEN UP=-2: AC=2 




1645 


IF 


Y= 


67.5 THEN UP=-1 : AC= 


2 


1650 


IF 


Y = 


90 THEN UP=0: AC =2 




1655 


IF 


Y= 


112.5 THEN UP=1 : AC= 


2 


1660 


IF 


Y- 


135 THEN UP=2: AC=2 




1665 


IF 


Y= 


157.5 THEN UP=2:AC= 


1 


1670 


IF 


Y= 


180 THEN UP=2SAC=0 




1675 


IF 


Y= 


202.5 THEN UP=2: AC= 


-1 


1 680 


IF 


V — 

1 — - 


225 THEN UP=2: AC=-2 




1685 


IF 


Y= 


247.5 THEN UP=1 : AC= 


-2 


i 690 


IF 


Y = 


270 THEN UP=0: AC=-2 
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1695 IF Y=292. 5 THEN UP=-1 : AC=-2 
17.00 IF Y=315 THEN UP=-2:AC=-2 
17.05 IF Y =337. 5 THEN UP=-2: AC=-1 
1710 RETURN 
1720 REM 

1730 REM INITIALISE 
1740 PRINT " 
CCLR> " 

1750 J=RND ( VAL (RIGHTS (TIS, 2) ) ) : REM 
RANDOMIZE 

1770 BREATH=320: REM CHARACTERS ACROSS 
1780 DEPTH=200: REM CHARACTERS DOWN 
1790 BREATH-BREATH- 1 
1 800 DEPTH=DEPTH-3 

3 810 UP=-2: AC=0: REM STARTS FACING UP 

1820 DIM A*< 20) : REM FOR ROBOT PROGRAM 

1830 REM TURN ON HIRES SCREEN 

1840 BASE=2*4096: POKE 53272 , PEEK ( 53272 ) O 

R8 

1850 POKE 53265, PEEK (53265) OR32 
I860 REM SET SCREEN TO CYAN AND BLACK 
1870 FOR I=BASE TO BASE +7999 : POKE 1,0: NE 
XT I 

1880 FOR 1=1024 TO 2023: POKE I, 3: NEXT I 

1920 RETURN 

2000 REM SET A POINT 

2010 ROW=INT <UX/8> 
2020 CHAR= I NT < AX / 8 ) 
2030 LINE=UXAND7 
2040 BIT=7- < AXAND7) 

2050 BYTE=BASE+ROW*320+CHAR*8+LINE 
2060 POKE BYTE, PEEK (BYTE) 0R2~BIT 
2070 RETURN 
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10 REM CONNECT FOUR 
20 REM A. W. PEARSON 

3.0 POKE 53230, 0: POKE 5323 1,0: PRINT " 
{CLR> f WHT> " 
40 PRINT 
50 PRINT 

60 PRINT "CONNECT FOUR" 
70 PRINT 

30 PRINT "ENTER YOUR MOVE AS A NUMBER BE 
TWEEM " 

90 PRINT "1 AND 8, ENTER O FOR A MEM GAM 
E " 

100 FOR F=l TO 1000: NEXT F 
1 10 DIM AS ( 10, 10> , B ( 10, 2) 

120 FLAG=0 

130 REM CHANGE NEXT LINE FOR YOUR OWN 
CHOICE OF SYMBOLS < C35-COMPUTER > 
140 CS="M" : H*="0" : REM M FOR MACHINE ! 
150 FOR F=l TO 3 
160 B < F , 1 > =6 
170 NEXT F 
130 FOR F~l TO 6 
190 FOR G=l TO 8 
200 AS ( F , G ) = " . " 
210 NEXT G 
220 NEXT F 

230 REM ************************** 

240 REM ACCEPT HUMAN MOVE 

250 GOSUB 430 

260 PRINT: PRINT" 

{ PUR > YOUR MOVE. . . " 

270 INPUT A: PRINT" 

{ WHT> " 5 

230 IF A=0 THEN RUN 

290 IF A< 1 OR A>9 THEN 270 

300 L=0 

310 IF A* < L + 1 , A ) <> " . " OR L = 6 THEN 340 

320 L=L+1 

330 GOTO 310 

340 IF L=0 THEN 270 

350 A* (L, A) =H* 
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360 B ( A , 1 > = B < A , 1 ) - 1 

370 GOSUB 430 

330 GOSUB 560 

390 GOSUB 430 

400 GOTO 260 

410 REM 

420 REM PRINT BOARD 
430 PRINT" 

{CLR> " 

440 FOR F=l TO 6 
450 FOR G=l TO 3 
460 PRINT A$(F,6) ? 
470 NEXT G 
480 PRINT 
490 NEXT F 
500 PRINT" 12345673" 
510 PRINT 

520 IF FLAG=1 THEN PRINT" I HAVE WON " : END 
530 RETURN 

540 REM ************************** 
550 REM COMPUTER MOVES 
560 PR I NT "MY MOVE . . . " 
570 MV=0 

580 FOR F = 1 TO 8 

590 B (F, 2) =0 

600 NEXT F 

610 FOR F=l TO 8 

620 FOR X=-l TO 1 

630 FOR Y=~l TO 1 

640 IF B < F , 1 ) =0 THEN 680 

650 IF A*(B<F, 1 > +X,F + Y) = " " OR AS ( B ( F , 1 ) + 
X, F+Y) =" . " THEN 630 

660 IF AS (B (F, 1 > +X, F + Y> =HS5 THEN GOSUB 31 



670 IF AS <B < F, 1 ) +X, F+Y) =C* THEN GOSUB 91 



630 NEXT Y 
690 NEXT X 
700 NEXT F 

710 P=0 

720 FOR F=l TO 3 

730 IF B <F, 2> >P THEN P=B <F, 2) : M=F 
740 NEXT F 
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750 AS(B<N S 1 > ,N> =C$ 
760 B ( M , 1 ) =B ( N , i ) - 1 
770 p=0 
780 N=0 
790 RETURN 
800 REM 
810 MV=2 
820 Ml-MV 

830 IF AS (B (F, 1 ) + <X*2) , F + ( Y#2> ) =H* THEN 
MV=MV+10 

840 IF AS<B<F S 1) -X,F-Y)=H* THEN MV=MV+20 
850 IF MVOM1 + 10 THEN 870 

860 IF A« < B < F , 1 ) + ( X*3 ) , F + ' Y*3 ) ) =HS THEN 

MV=MV+.t000 

870 B (F, 2) =B (F, 2) + MV 

880 M1=0 

890 RETURN 

900 REM 

910 MV=2 

920 M1=MV 

930 IF A$<B <F, 1 ) + (X*2) , F+ ( Y*2) ) =CS THEN 
MV=MV+9 

940 IF A* (B (F, 1 ) -X, F-Y) =C* THEN MV=MV+20 
950 IF MVOM1+9 THEN 970 

960 IF AS <B (F , 1 ) + <X#3> , F+ t Y*3) ) =CS THEN 
MV=MV+2000: FLAG=1 
970 B(F,2) =B < F , 2 ) +MV 
980 RETURN 
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J REM QUEVEDO CHESS MACHINE 

20 GOSUB 1510: REM INITIALISE 

30 GOTO 60 

40 GOSUB .1320: REM PRINT BOARD 

50 GOSUB 1. 10: REM COMPUTER MOVES 

60 GOSUB 3.32.0 

70 GOSUB 1 12.0: REM ACCEPT HUMAN MOVE 

80 GOTO 40 



9.0 END 




100 


REM ************ 




1 10 


REM COMPUTER MOVES 




1 2.0 


IF QUIT=1 THEN 1.08.0 




.1 30 


W1=WK 




1 40 


REM -3f •$$"&"^"/S")f "i^ - ^ * 




150 


REM MOVE ONE 




3 60 


MOVE=l 




170 


KM= I NT ( BK / 10> 




180 


RM— I NT (&/ 1.0) 




190 


IF ABS ( KM-RM ) >3 THEN 


330 


200 


A (R) =46 




210 


X= I NT (BK/ 10) : Y= I NT < R 


/ 1.0) 


220 


IF X>Y THEM 27.0 




230 


IF A <R- 1.0)046 THEM 


27.0 


240 


IF A (R-19) =BK OR A ( R 


-21)=BK OR A < R-2 



0) =BK THEM 27.0 

25.0 IF A ( R - 1 1 ) =BK OR A ' R-9 ) =BK THEN 270 

260 R=R- 10: GOTO 300 

270 IF A 'R+1.0) < >46 THEN A (R) =R: GOTO 330 

280 IF A ( R+ 1 9 ^ =BK OR A (R + 21 ) =BK OR A (R + 2 

0)=BK THEN A <R> =R: GOTO 33.0 

290 R=R+10 

3.0.0 A ( R ) =ASC ( " R " ) 

310 RETURN 

320 REM ************ 

330 REM MOVE TWO 

340 M0VE=2 

350 KM=BK- 10*KM 

360 RM=R-10*RM 

370 IF ABS ( KM-RM X 2 THEM 480 

38.0 A(R)=46 

39.0 IF R>1 1 THEN IF (A < R - 1 2 ) =BK OR A (R-2 
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>=BK OR A (R+8) =BK) THEM A ( R > =R : GOTO 480 
400 IF R>1 1 THEM IF ' A ' R - 1 ) = BK OR A < R- 1 1 
>=BK OR A < R + 9 > -BK ) THEN A (R) =R: GOTO 480 

410 Y = BK - 1 0* I NT < BK / 1. 0) 
420 Z = R- 1 0*1 NT ( R / .1 ) 

430 IF (7=1 OR Y>2) AMD A(R+l)-46 THEN R 

= R+ 1 : GOTO 450 

440 R = R-1 

450 A ( R ) =ASC ( "R" ) 

460 RETURN 

470 REM ************ 
480 REM MOVE THREE 
490 M0VE=3 

500 WM=WK - 1 0*1 NT < WK / 1 ) 

510 BM=BK- 10* I NT (BK/ 10) 

520 IF ABS < WM-BM ) <3 THEN 600 

530 IF A(WK-1)<>46 OR A (WK-18) =BK OR A(W 

K-2) =BK OR A (WK+8) =BK THEN 610 

540 IF A (WK- 1 1 ) =BK OR A (WK+9) =BK OR A ( WK 

-22)=BK THEN 610 

550 A(WK>=46 

560 WK=WK-1 

570 A ( WK ) =ASC ( " K " ) 

590 REM ************ 

600 REM MOVES FOUR, FIVE AMD SIX 

610 Z = ABS ( I NT ( BK / 1 ) - I NT ( WK / 10) ) 

620 IF Z=0 THEN 950 

630 IF 2*INT <Z/2) =Z THEN 790 

640 REM ************ 

650 REM MOVE FOUR 

660 M0VE=4 

670 A <R) =46 

680 IF A <R-10) < >46 THEN 720 

690 IF A ( R-9 > =BK OR A ( R - 1 1 ) =BK THEM 720 
700 IF A (R-19) =BK OR A(R-21)=BK OR A(R-2 
0>=BK THEN 720 
710 R=R- 10: GOTO 760 

720 IF A (R+ 10> < >46 THEN A (R^ =R: GOTO 790 

730 IF A(R+J9)=BK OR A(R+21)=BK OR ACR+2 

0)=BK THEN A (R) =ASC ( "R" ) : GOTO 790 

740 IF A < R+ 1 1 ) =BK OR A < R + 9) =BK THEN A-'R) 

=ASC ( "R" ) : GOTO 790 

750 R=R+10 
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760 A ( R > = ASC ( " R " ) 
770 RETURN 

780 REM ■fc#*###-?H*- ; *### 

79® REM MOVE FIVE 

300 M0VE=5 

810 J = I NT 1 BK / 1.0) 

820 K = BK-.10#J 

830 L= T NT fWK/ 10) 

840 M=WK~t0#L 

850 7=10: IF J<L THEN Z = -10 
860 X=l : IF K< M THEN X=-i 
870 A*WK)=46 
880 W1=WK 
890 WK=MK+Z+X 
900 Q=ABS ( WK-BK > 

910 IF G=l OR G=9 OR G=10 OR G=l 1 THEN U 
K=U» 1 : A ( WK ) =75 : GOTO 950 
920 A ( WK ) =ASC f " K " ) 
930 RETURN 
940 REM 

950 REM MOVE SIX 
960 M0VE=6 
970 A(R>=46 

980 IF R>1 1 THEN IF A ( R- 1 2 ) =BK OR A(R-2) 
=BK OR A ( R + 8 ) =BK OR AIR-DOR THEN 1070 
990 IF R>11 THEN IF < A < R- 1 ) =BK OR A (R-l 1 
>=BK OR A i R + 9 ) =BK THEN 1070 
1 000 Y=BK-10*I NT (BK/ 10) 
1010 Z=R-10*INT <R/ 10) 

1020 IF (Z=i OR Y>Z) AND A { R+ 1 ) =46 R=R+1 

: GOTO 1040 

1030 R=R- 1 

1040 A < R ) =ASC < "R" ) 

1 050 RETURN 

1060 REM V*********** 

1070 GOSUB 1320 

1080 PRINT : PRINT 

1090 PRINT" I CONCEDE TO THE MASTER" 
1100 END 
1110 REM 

1 120 REM ACCEPT HUMAN MOVE 
1 130 REM ENTER ' Q ' TO QUIT 

1140 MOVE=0 
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1150 PRINT" >> MOVE TO (LETTER, NO.)"? 

I 160 INPUT 6S 

1170 IF G<S="Q" THEM 1280 

1180 IF LEN(G*)<>2 THEN 1160 

1190 Z=ASC(G*> 

1200 IF Z<65 AMD Z>72 THEN 1160 

121 X = V AL < R I GHTS (G$,l) ) 

1220 IF X< 1 OR X>8 THEN 1 160 

1230 A ( BK ) =46 

1240 BK=10*(Z~64) +X 

1250 IF A (BK) =ASC ( "R" ) THEN QUIT=1 
1260 A (BK) =ASC ( "$" ) 
1 270 RETURN 
1280 PRINT: PRINT 

1290 PRINT " THANKS FOR THE GAME " 
1300 END 
1310 REM 

1320 REM PRINT BOARD 

1330 PRINT" 

CCLR}" 

1340 PRINT: PRINT 

1350 IF MOVEX0 THEN PRINT" I USED MOVE "MO 
\>E 

1360 IF MOVE=0 THEN PRINT 
1370 PRINT: PRINT 

1380 PRINT TAB (11); " ABCDEFGH " 

1390 FOR J=8 TO 1 STEP -1 

1 400 PR I NT TAB f 8 ) 5 J 5 

1410 FOR K=10 TO 80 STEP 10 

1420 PRINT CHR* ( A ( J+K) ) ; 

1430 NEXT K 

1440 PRINT J 

1450 NEXT J 

1460 PRINT 

1470 PRINT TAB ( 11 ) 5 "ABCDEFGH" 
1480 PRINT: PRINT 
1490 RETURN 
1 500 REM 

1510 REM INITIALISATION 

1520 POKE 53280, 0". POKE 53281 , 0: PRINT " 
<CLR} " 

1530 J=RND (VAL (RIGHTS (TIS, 2) ) ) : REM 
RANDOMIZE 
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154.0 MOV/E=0 

1550 QUIT=0 

J 560 DIM A (13.0) 

1570 FOR J=10 TO 80 STEP 10 

1580 FOR K=l TO 8 

1590 A ( J+K) =46*. REM ASCI I OF 

.1 600 NEXT K 

1610 NEXT J 

1620 REM *•* PLACE PIECES 

1630 REM BLACK KING - HUMAN 

1640 BK= I NT ( RND ( 1 ) #3 ) + 1 

1650 BK=i0#BK+BK+INT (RND ( 1 > *5> 

1660 A (BK) =ASC ( "S" ) 

1670 REM WHITE KING - COMPUTER 

1 680 WK = I NT ( RND I 1 > #4 ) + 4 

.1690 WK=i0*WK + WK + INT (RND ( 1 >*2) 

1700 IF WK-BK THEN 1680 

1710 A ( WK ) =ASC ( "K " ) 

1720 REM WHITE ROOK -• COMPUTER 

1730 R=INT (RND ( 1 ) *4> +4 

J 740 R=10*R+R+INT (RND ( 1 ) *2> 

1750 IF R=BK OR R=WK THEM 173.0 

1760 IF ABS (R-BK) < 12 THEN 1730 

1770 A ( R > =ASC ( "R" ) 

1780 RETURN 
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10 REM WASHINGTON D.C. 

20 GOSUB 1.160: REM INITIALISE 

3.0 REM &^^^^^^^^&^^^#^^^#^#^^# , &-&-if-3f-& 

40 REM MAJOR CYCLE 

50 P=INT *P + <P*273/ML> ) 

60 GOSUB 160: REM PRINTOUT 

70 GOSUB 510: REM CALCULATE 

80 REM NOW CHECK END GAME 

90 GOSUB 710: REM STANDARD OF LIVING 

100 GOSUB 780: REM INFLATION RATE 

110 GOSUB 840 : REM UNEMPLOYMENT 

120 IF GAME= 1 THEN PRINT" 

{ CLR> " : GOTO 890 

130 GOTO 50 

140 REM 

150 REM PRINTOUT 
160 PRINT" 
<CLR3 CWHT> " 

170 PRINT " PRESIDENT " J A* ; " : " 

180 PRINT " YOUR ADMINISTRATION HAS BEEN I 

N POWER FOR" Y +2/4 "YEARS" 

190 PRINT" 

ii 

200 PRINT"- STATE OF THE NATION 

ii 

2 .1.0 PR I NT " 

220 PR I NT" POPULATIONS 

230 PRINT-NO. UNEMPLOYED " I NT ( U ) " "INT(1 
00*U/P) "%" 

240 PR I NT "CURRENT WAGES 35"WO" INFLATION" 
INT ( IP) "%" 

250 PR I NT "GOVT. EXPENDITURE LAST QTR . $M 
" GE 

260 PRINT "UNEMPLOYMENT COST *M " I NT < 1 0#G 
U ) / 1 

270 PRINT "INCOME FROM TAXES *M M INT<10*G 
I ) / 1 

28.0 PR I NT "BUDGET SURPLUS (+)/ DEF I C IT (- ) « 
M" INT { BD#10) / 10 
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290 PRINT" GROSS DOMESTIC PRODUCT *M" INT < 
GBP* 10) / 10 

300 IF Y+Z/4>.5 THEM PRINT " CHANGE IN LIV 
IMG STANDARD " ; 

305 IF Y+Z/4>.5 THEN PR I NT I NT ( < 2* < (RGDP/ 
AGDP)*100) -100) /3> 

310 PRINT" 

_ n 

320 PR I NT "PUBLIC INVESTMENT M Y " Q " Z "*M M INT 
( IV*10> / 10 

33.0 PRINT" -~ 

_ _ _ _ II 

340 PR I NT "OK, PRESIDENT " J AS J "... " 

350 INPUT "ENTER GOVERNMENT SPENDING *M" 

; GE 

360 INPUT " 

{ PUR } ENTER COST OF WAGES SM"?WN 

370 PRINT "IS YOUR ADMINISTRATION IN FAVO 

R OF" 

380 PRINT" IMMIGRATION THIS QUARTER < Y / f I ) 
'P 

{WHT> " 

390 GET X* 

400 IF X3K>"Y" AND >"*< > "N" THEN 390 
410 PR I NT TAE ( 20 ) I " OK . . . " J X* 
420 FOR H=l TO 1.000: NEXT H 
4 3 .0 I F X * < > " Y " THEN R E T U R N 
4 40 PRINT " 

€ PUR 3 HOW MANY IMMIGRANTS WILL YOU ALLOW 

INTO THE US" 
450 INPUT M : PRINT " 
{ PUR > " J 

4 60 IF M<0 THEN 450 
470 P=P + M 
480 RETURN 

490 REM *************************** 
500 REM CALCULATIONS 
510 C N=CN + < C N* IP/ 1 00 ) 

520 U=P# < GE + I V ) / ( CM* 1.0) +P* C IP / i 000 ) 
530 GU=U*WN/ML: REM UNEMPLOYMENT COST 
540 G I = ( i ( P - U ) *WN* .4) /ML) : REM I NCOME 

FROM TAXES 
550 BB— BP+6I -GU-GE : REM BUDGET DEFICIT 
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560 AGDP- AGDP-& i 1 + < I P / 10.00 ) } 

570 GDP=GE + I V+ < '. P~U > #WN / ML ) 

580 PQDP-GDP^440/AGDP 

590 IP- < { GE + 1 V > / C N* . 1 + ( WN / WO ) / i 00 > * 1 00 

600 I y>~ ( CM-X-67 ) / l IPK-1P) 

610 WO=MM 

620 Z=Z+l:lF Z>4 THEN Z=isY=Y+l 

630 RETURN 

640 REM *************************** 

650 REM CHECK BUDGET DEFICIT 

660 IF BD>-I000 THEN RETURN 

670 GAME=i 

680 FLAG=i 

690 RETURN 

700 REM *************************** 

710 REM CHECK STANDARD OF LIVING 

720 IF Y<.75 THEN RETURN 

730 IF INT ( <2*t ( RGDP / AGDP ) *100 ) -100) / 3) > 

-15 THEM RETURN 

740 GAME— 1 

750 FLAG-2 

760 RETURN 

770 REM *************************** 

780 REM CHECK INFLATION RATE 

790 IF IP<15 THEN RETURN 

800 GAME= 1 

810 FLAG=3 

820 RETURN 

830 REM *************************** 

840 REM CHECK UNEMPLOYMENT 

850 IF I NT ( U* 1 00 / P ) < 1 5 THEN RETURN 

860 GAME=1 

870 FLAG=4 

880 RETURN 

890 REM *************************** 

900 REM END OF THE GAME 

910 PR I NT " PRESI DENT » ; A* \ " , YOUR " 

920 PRINT "ADMINISTRATION' S POOR ECONOMIC" 

930 PRINT " PERFORMANCE HAS LED TO AN UN AC 

CEPTABLE" 

940 IF FL AG= 1 THEN PR I NT "BUDGET DEFICET " 

950 IF FLAG=2 THEN PRINT "DROP IN THE ST A 
NDARD OF LIVING" 
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960 IF FLAG=3 THEN PRINT "RISE IN THE INF 
LATION RATE " 

970 IF FLAG=4 THEN PR I NT "RISE IN UNEMPLO 
YMENT " 

980 PRINT" AMONG OTHER THINGS..." 

990 PRINT" 

_„ H 

1000 PR I NT "THE LACK OF CONFIDENCE IN YOU 
R " 

303 PR INT" ADMINISTRATION IS SO BAD THER 
E ARE" 

1020 PR I NT " CALLS FOR YOU TO RESIGN. . . YOU 
STEP" 

1030 PRINT" ASIDE TO ALLOW THE VICE-PRESI 
DENT TO" 

1040 PRINT" OCCUPY THE OVAL OFFICE 

ii 

3 050 FOR H-l TO 1 000 : NEXT H 

1060 PRINT"- 

■■ 

1 070 PRINT" YOU WERE PRESIDENT FOR"Y+ <Z*. 

25> "YEARS" 

1080 PRINT " DURING YOUR TERM OF OFFICE, T 
HE" 

1090 PR I NT "POPULATION ROSE BY"P-3*ML 
1100 PR I NT "THE UNEMPLOYED RATE BECAME" IN 

T ( U# 1 000 / P ) /I " % " 

1 1 J PRINT" AND THE INFLATION RATE BECAME 
"INT ( IP*10> / 10"%" 

1 120 PR I NT "STANDARD OF LIVING CHANGED BY 

" I NT < <2*< < RGDP / AGDP > 1 00 ) - 1 00 ) / 3 > " % " 

1 130 PR I NT "AND THE BUDGET SURPLUS / DEF I C I 

T WAS *5M" INT <BD*10> / 10 

3 140 END 

1150 REM 

1160 REM INITIALISE 

1170 POKE 53280, 0: POKE 53281 , % PRINT " 
{ CLR 3 " 

1 180 H = RND ( VAL (RIGHT* <TI* ? 2) ) ) : REM 

RANDOMIZE 

1190 ML= 1 000* 1 000 

1200 P=3#ML! REM POPULATION 

1210 U=P/ 10: REM UNEMPLOYMENT 
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1 220 I V=236 : REM INVESTMENT 

123.0 GE=118:REM GOVERNMENT EXPENDITURE 

1240 6U=0 : REM COST OF UNEMPLOYMENT 

125.0 GI=0:REM INCOME FROM TAXES 

1260 WN=100: REM NEW WAGES 

1270 W 0=1.00: REM OLD WAGES 

1280 IP=5: REM INFLATION PERCENT 

1290 GDP = 44.0: REM GROSS DOMESTIC PRODUCT 

1 300 AGDP=440: REM BASE YEAR GDP 

131.0 RGDP=44.0: REM REAL GDP 

1320 CN=354: REM ECONOMIC CONSTANT 
< USED THROUGHOUT SIMULATION) 

1 330 Z=l : GAME=0 : FLAG=0 

1340 Y=0 : REM YEAR 

135.0 PRINT "ENTER YOUR LAST NAME " 

1360 INPUT A* 

1370 RETURN 
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10 REM STOCK MARKET 

20 ROKE 53280, 01 POKE 5328 t , 0: PRINT " 
t CLR> " 

30 C = I NT ( RMD t V AL ' R I GHT* ' T I * , 2 ) ) > ) : REM 
RANDOMIZE 

40 DIM S < 5 > , M ' 5 ! , P ( 5 ) , D '5) 

50 S ( 1 ) = 1 . 49 : S ( 2 ) = t . 99 : S ( 3 ) =2 . 49 : S ( 4 > =2 . 
99: S (5) =3. 49 

60 N < I > =2000: N <2> =1500: M <3> =1200: N <4> =10 
00: N (5^ =800 

70 BB=265 : TV'= 1 5000 : Q0= 1 5000 : DAY = 1 
80 PRINT : PRINT " 

{ PUR > ENTER YOUR GOAL FOR THIS SIMULATION 
■■ 

J 

90 PR I NTT AB <8) ; "$16, 000 TO * 100 ,000" 

100 INPUT GAL: REM INPUT GOAL 

110 IF GAL < 16000 THEN PRINT " 

<WHT>TOO LOW!" : GOTO 80 

120 IF GAL > 100*1000 THEN PRINT " 

CWHT >TOO HIGH ! " : GOTO 80 

130 REM ********************* 

140 REM MA TOR LOOP 

150 FOR C=l TO 5 

160 REM ADJUST THE 55 IN NEXT LINE TO 

MODIFY GAME; 80 VERY HARD, 30 VERY EASY 

170 D f C ) = I NT < RMD < 1 ) *55 > + 1 

180 P (C> =INT <RND < U*( 100-D (C> > ) +1 

190 NEXT C 

200 GOSUB 230 

210 GOTO 460 

220 REM ********************* 
230 REM PRINTOUT 
240 PRINT" 
{ CLR > f WHT > " 

250 PRINT" 



260 PRINT "DAY "DAY" YOUR GOAL IS * 

" GAL 

270 PRINT" 
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28.0 PRINT "COMPANY NUMBER : " 

290 PRINT TAB (2) ? 1 ? TAB (9) ? 2? TAB ( 16) ? 3? TA 
B (25) J 4J TAB (35) ? 5 

300 PRINT "CHANCE OF INCREASE (%):" 

310 PRINT TAB (2) ? P ( 1 ) ; TAB (9) ; P (2) ; TAB (16 

) ; p ( 3 ) ; tab (25) ; p (4) ; tab (35) ; p (5) 

320 PRINT "CHANCE OF DECREASE (%):" 

330 PRINT TAB (2) ? D < 1 M TAB (9) ; D (2) ; TAB ( 16 

) ? D (3) ? TAB (25) ? D (4) ? TAB (35) ? D (5) 

340 PR I NT "CURRENT VALUE PER SHARES" 

350 PRINT "S3" S INT (S ( 1 ) *100) / J 00? TAB (8) 5 " 

ss " ; I NT ( S ( 2 ) * 1 00 ) / 1 00 5 

360 PRINT TAB ( 15) 3 "S" 5 INT (S (3) *100) / 100? 

TAB (23) 5 "»" 5 INT (S (4) #100) / 100? 

370 PRINT TAB (30) ? "S>" ? INT (S (4> *100) / 100 

380 PR TNT "NO. OF SHARES HELD I " 

390 PRINT TAB (2) ? N ( 1 ) ? TAB (9) J N (2) ? TAB ( 16 

) ? N ( 3 ) ? TAB ( 25 ) ? N ( 4 ) ? TAB ( 35 ) ? N ( 5 ) 

400 PR I NT "BANK INT ' BB ) " TOTAL WORTH * M 

INT ( ! 00-S-TV) / 100 

410 PRINT" 



420 IF TV > GAL THEN PRINT" YOU'VE HIT YOUR 

FINANCIAL GOAL ! " : END 
430 RETURN 
440 REM 

450 REM ** SELL *# 

460 PRINT" 

f PUR>DO YOU WANT TO SELL ANY SHARES (Y/M 
) ? " 

470 GET A* 

480 IF AS5<>"Y" AND ASO"N" THEN 470 
490 IF A*="N" THEN 690 
500 GOSUB 230 
510 PRINT " 

{WHT1WHICH ONES TO SELL?"? 
520 GET A$ 

530 IF A*<"1" OR A*>"5" THEN 520 
540 C=VAL ( A&) 
550 PRINT" 
<WHT> OK"C 
560 PRINT" 



283 



Commodore 64 



{ PUR > HOW MANY OF"C"TO SELL " » 
570 INPUT N 

580 IF N > N ( C ) ■ THEM PRINT " 

{ WHT > YOU DON'T HAVE THAT MANY !": GOTO 570 

590 REM X X X X X X X X X X X' X X X X X X X "X X X 

600 REM ADJUST FIGURES AFTER SALE 

61.0 BB-BB+S ( C ) *N: REM ADD VALUE TO BANK 

620 N (C> =N (C) -N'.REM SUBTRACT NO. SOLD 

630 TM=0: REM SET TOTAL WORTH TO ZERO 

640 REM NOW DETERMINE CURRENT WORTH 

650 FOR C=l TO 5 

660 Ty=Ty+N(C)#S(C> 

670 NEXT C 

680 T l v'=TV + BB : REM ADD IN BANK BALANCE 
690 GOSUB 230 

700 REM #******#********-X--X-#-X--X- 
710 REM #* BUY ** 

720 PRINT " 

{PUR>DO YOU WANT TO BUY ANY SHARES (Y/N) 
<p ii 

73.0 GET A* 

740 IF A$< > " Y" AND ASK 
750 IF A»="N" THEN 890 
760 GOSUB 230 
770 PRINT" 
{ PUR > WHICH COMPANY 
780 GET A* 
790 IF ASK " 1 " 
800 C=VAL (A*) 
810 PRINT" 
{ WHT > OK " C 

820 PRINT" 

{ PUR > HOW MANY OF"C"TO BUY"; 
830 INPUT N 
840 IF N*S < C > > 
{ WHT J YOU DON'T 
830 

850 REM ***^****#**#****#*#*-X- 
860 REM ADJUST FIGURES AFTER BUY 
870 BB=BB-S C ) •X-N 
880 N ( C ) =N ( C * +N 
890 TV-.0 



" N " THEN 730 



TO BUY? " I 



OR A* > " 5 " THEN 780 



BB THEN PRINT" 
HAVE ENOUGH MONEY ! " : GOTO 
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900 FOR C=.t TO 5 

9J0 TV=TV+N <C)*S <C) 

920 NEXT C 

93.0 TV=TV+BB 

940 GOSUB 230 

950 REM ********************* 

960 REM MODIFY ALL INDICATORS 

970 TV=0 

980 FOR C= 1 TO 5 

990 K=INT CRND ( 1 ) *100) + 1 

1000 IF K<P'C> THEN S(C>=S<C>*(1+(P(C>/1 

000) ) 

1 10 K= I NT < RND ( 1 ) * 1 00 ) + 1 

1020 IF K<D(C) THEN S < C > =S < C ) / ( 1 + < P < C > / 1 

000) ) 

1 030 T V=T V + i S ( C ) *N ( C ) ) 

1040 NEXT C 

1050 TV=TV+BB 

.1060 QQ=QQ+1 

1 070 W= i TV* 100/ QQ ) - 100 

1080 IF W=0 THEN W= . 1 

1090 W=W + 6 

1100 IF W< 1 THEN W=l 

31110 IF W > 1 5 THEN W=15 

1120 RESTORE 

1130 FOR T=l TO W 

1 140 READ A* 

1150 NEXT T 

1160 PRINT 

1170 REM ******************** 

11 80 REM GIVE RATING, START NEW ROUND 

1190 PRINT" 

{ WHT > YOUR RATING AFTER THAT ROUND OF" 

1200 PR I NT "TRADING IS '"JA*}"'" 

1210 PRINT! PRINT " 

{PUR* < PRESS SPACEBAR TO CONTINUE >" 

122.0 GET ZZm: IF ZZ*< > " " THEN 1220 

1230 DAY=DAY+ 1 

1240 GOTO 15.0 

1250 DATA "HOPELESS" , "VERY, VERY POOR" 

1260 DATA "TERRIBLE" , "AWFUL" , "BAD" 

1270 DATA "VERY ORDINARY "," AVERAGE " 
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1280 DATA "REASONABLE" , "A LITTLE ABOVE A 
VERAGE" 

1290 DATA "FAIRLY GOOD" , "GOOD" , "VERY GOO 
D" 

1300 DATA "GREAT" , "EXCELLENT" , " SUPERLAT I 

v tZ. 
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10 REM DETROIT CITY 

20 GOSUB 1640: REM INITIALISE 

30 GOTO 110 

40 MT=MT+ I 

50 GOSUB 650 

60 IF TP > 200 THEN 1560 

70 PRINT " 

{CYM>DO YOU WANT TO RESIGN < Y/N > ?< WHT > " 
S0 GOSUB 1010 

90 IF A*="Y" THEN PR I NT "OK, CHIEF " : END 
100 GOSUB 1380 
1 10 GOSUB 650 

120 FOR T=l TO 1000: NEXT T 
130 GOSUB 850 

140 PRINT "DO YOU WANT TO EXPAND OUTPUT < 
Y / N > ? " 

150 GOSUB 1010 

160 IF A*= " Y " THEN 1080 

170 IF SF=1 THEN 210 

180 PRINT " DO YOU WANT TO SELL FACTORY 4 
{ Y / N ) ? " 

190 GOSUB 1010 

200 IF A*="Y" THEN 1250 

210 GOSUB 650 

220 INPUT " HOW MANY EMPLOYEES TO HIRE" ; H 
E 

230 NE=NE+HE: IF HE>0 THEN 260 

240 INPUT "HOW MANY EMPLOYEES TO FIRE" J H 

E 

250 NE=NE-HE 
260 GOSUB 650 

270 P1=AS:REM SET PI EQUAL TO OLD PRICE 
230 INPUT " WHAT IS YOUR SELLING PRICE" J A 

S 

290 REM NEXT LINE REJECTS TOO BIG A 

CHANGE IN SELLING PRICE 
300 IF ABS <P1-AS) >2500 THEN PR I NT "TOO BI 
G A CHANGE FOR THE MARKET": GOTO 280 
310 PRINT" 
{ CLR> " 

320 PRINT: PRINT: PRINT 
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33.0 M I = I N T < RND < U #4000 ) + 4 8* 1 000 : REM THIS 

MONTH'S SALES BY INDUSTRY 
340 C=C + i : REM COUNTS NUMBER OF MONTHS 
350 IF C < 3 THEM 470 

360 M=INT (RND ( 1 ) *10+1 ) / 4: REM INFLATION 
370 PRINT " 
CCLR> " 

380 PRINT" INFLATION RATE THIS QUARTER IS 

H Jyj II e/ 5 II 

390 PRINT "AVERAGE WAGES BILL WILL NOW RI 
SE TO" 

400 A W= < AW&M / 1 00 ) + A W, 

410 PR I NTT AB (8) J INT (AW) " PER EMPLOYE 
E" 

420 GET Z2*: IF ZZ3K > " " THEN 420 

430 PR I NT : PR I NTT AB ( .1 2 ) ; " ANY KEY TO COMTI 

NUE " 

440 GET ZZS: IF ZZ*="" THEN 440 
450 FA= <FA*M / 100) +FA 
460 C~0 

470 Y ' 1 ) = NE-?f 15/ 12 : REM SALES BASED ON 

NUMBER OF EMPLOYEES 
480 Y ' 2 > = < 1 00 - A S / F A ) *M I / 1 00 : R E M SALES 

BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINE SETS LOWEST FIGURE 

FROM Y(1S Y ( 2 ) , M<5) EQUAL TO Y (3) 
500 I F Y ( 1 ? < Y ( 2 ) AMD Y ( 1 ) < M ( 5 > THEN Y ( 3 ) 
= Y ( 1 > : GOTO 540 

510 IF Y ( 2 X Y < 1 ) AMD Y <2> <M (5) THEN Y • 3 ) 
=Y (2) GOTO 54.0 
520 Y » 3 ) -M < 5 ) 

530 REM NEXT LINES DETERMINE 

MONTHLY SALES 
540 IF ABS < Pi -AS X 501 THEN Y ( 3 > =3 . 6#Y ( 3 ) 

/3 

550 IF Y'3) >M (5) THEN Y (3) =Y (3) -1975: GOT 

O 550 

560 MC= <MC*M/ 100) +MC 

570 EF=Y <3) / M ( 5 ) * 1 00 : REM EFFEC IENCY % 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC= CMC* ( ABS (85-EF) / 3 ) / 100) +MC: REM 
AVERAGE COST PER VEHICLE 
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59.0 MP= ( ( Y (3) * ( AS-AC > ) - <NE#AW/ 12) ) : REM 

MONTHLY PROFIT 
600 MP= INT ( MP / ( 1 00# 1 000 ) ) 
610 TP=TP+MP/ 1.0: REM TOTAL PROFIT 

IN MILLIONS 

620 M~0 
630 GOTO 40 

640 REM #*^^*^*^^*^^^^^^-3f^--sf-?f^.#4f-jf 
650 REM REPORT PRINTOUT 
660 PRINT " 
£CLR> " 

670 PRINT" INDUSTRY SALES "MI "IN MONTH " MT 
680 IF MT>0 THEN PRINT" YOUR SALES: " INT (Y 
(3))" ( " INT <Y (3>*i000/MI ) / 10"% OF TOTAL 
) " 

690 PRINT------ 

_ ™ _ » 

700 PRINT" YOU HAVE " ME " EMPLOYEES " 

710 PR I NT "AVERAGE WAGES ARE $"AW 

720 PR I NT " OR *M " I NT ( AW*NE / < 1 00* 1 000 ) / 1 

2) / 10- "PER MONTH" 

730 PRINT" 

■■ 

740 IF MT=0 THEN RETURN 

750 PRINT" AVERAGE COST PER VEHICLE IS 
INT <AC) 

760 PR I NT "AND AVERAGE SELLING PRICE IS $ 
"I NT (AS> 

770 PR I NT "SO THE AVERAGE PROFIT IS INT 
(AS-AO 

780 PR I NT " OR *M " I NT ( ( AS- AC ) #Y < 3 ) / ( 100*10 
0.0 ) ) / 10 "PER MONTH " 

790 PRINT" 

_ ~ »i 

8.00 PR I NT "PROF IT FOR THE MONTH IS SM"MP/ 

10 

810 PR I NT "8- TOTAL PROFIT TO DATE IS $M"I 
NT (TP#10> / 10 

820 PRINT" 

ii 

830 RETURN 

840 REM *********** ***************** 
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850 REM MONTH REPORT 
860 PRINT " 
{ CLR } " 

370 IF MT>0 THEM PRINT " YOUR MONTHLY SALE 
S ARE " INT (Y t 3> > 

380 PRINT " 

890 PR I NT " MAX I MUM MONTHLY OUTPUT:" 
900 PRINT TAB (3) 5 "FACTORY 1 : " I NT ( M < 1 ) ) 
910 PRINT TAB (3) j "FACTORY 2 : " I NT < M < 2 > } 
920 PRINT TAB (3> 5 "FACTORY 3 : M INT ( M ( 3> ) 
930 IF SF=i THEN 960 

940 PRINT TAB (3) j "FACTORY 4 : " I NT ( M ( 4 ) ) 
950 PRINT" : 

_ ~. _ » 

960 PRINT "TOTAL OUTPUT IS" INT <M (5) > 

970 PRINT " 

. _. H 

980 PRINT "EFFICIENCY LEVEL IS" INT ( EF ) "% 
ii 

990 RETURN 

1000 REM ^^^*^^^^^^^^^^^*^-^--3f-5f-?f-?f^--?f^--M--)$-Jf 
1010 REM GET REPLIES 
1020 GET AS 

1 030 IF A*< > " Y " AND A* < > " N " THEN 1 020 
1040 PRINT TAB (22) ; AS 
1050 FOR J = l TO 500: NEXT J 
1060 RETURN 

1070 REM ■^^^■^^^^^¥'^^¥r^¥r^^^ 
1080 REM INCREASE OUTPUT? 
1090 IF M(4)=0 THEN X=15:G0T0 1110 
1100 X=13 

1110 PRINT" IT WILL COST SM"X" TO EXPAND" 

1120 PRINTTAB ( 8) ; "OUTPUT BY 1 % " 

1130 PRINT" 

_ ii 

1140 PRINT "HOW MANY % DO YOU WISH TO RAI 
SE OUTPUT" 

1150 INPUT EP: IF EP<0 OREPM00 THEN 1150 

1 1 60 M ( 5 ) =0 

1170 FOR T=l TO 4 

1180 M (T> =M (T) +M (T) *EP/ 100 

1 190 M (5) =M (5) +M (T) 
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1 2.00 NEXT T 

1210 TP=TP-~EP*X 

1220 FOR T = l TO 500: NEXT T 

1230 GOTO 170 

1240 REM 

1250 REM SALE OF FACTORY FOUR 

1260 PRINT " FACTORY FOUR IS VALUED FOR S 

ALE AT *M1@4" 

127.0 PRINT " YOU CAN'T REBUY IT LATER IF 

YOU SELL IT..." 
1280 PR I NT "DO YOU WANT TO SELL ( Y / M ) ? " 
1290 GOSUB 1010 
1300 IF A$="N" THEN 210 
1310 TP=TP+i04 
1320 SF=1 

1330 M { 5> -M ( 1 ) +M (2) +M ( 3) 
1340 M(4)=0 
1350 GOTO 170 
1360 REM 

1370 REM CHECK ON LOSSES 

1380 IF MP>0 THEM SA~0:GOTO 1480 

1390 SA-SA+1 

1400 IF SA>11 THEN 1420 

1410 GOTO 1480 

1420 PRINT" 

{CLR> " : PRINT 

1430 PR I NT "YOU JUST MADE YOUR TWELTH MON 
THLY" 

1440 PR I NT "LOSS IN A ROW 

■i 

1450 PRINTTAB < 6) J " YOUR EMPLOYMENT " 

1460 PRINTTAB (6) J" IS HEREBY TERMINATED ! ! 

u 

1470 END 

1480 IF TP>=-250 THEM 1350 
1490 PRINT" 
{CLR1 PRINT 

1500 PR I NT "UNDER YOUR MANAGEMENT, THE CO 
MPAMY HAS" 

1510 PRINT"LOST MORE THAN S5M250 ! " 

1520 GOTO 1450 

1530 IF TP > 200 THEN 1570 

1540 RETURN 
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1550 REM 

1560 REM SWEET SWEET SUCCESS!!! 
1570 PRINT " 
<CLR> " : PRINT 

1580 PRINT "WELL DONE! THE COMPANY HAS MA 
DE MORE " 

1590 PRINT " THAN *M200. YOU'VE BEEN 
MADE" 

1600 PRINT" A MEMBER OF THE BOARD 

ii 

1610 FOR T=l TO 2000: NEXT T 
1620 END 

1630 REM **************************** 
1640 REM INITIALISE 

1660 T=RND (VAL (RIGHT* (TI$, 2) ) ) : REM 

RANDOMIZE 

1670 DIM M (5) , Y (5) 

1680 NE= 12000: REM STARTING NO EMPLOYEES 
1690 AW=22995: REM STARTING AVERAGE WAGE 
1700 AC=i 1100: REM COST PRICE/ VEHICLE 
1710 AS= 12000: REM SELLING PRICE 
1720 M I =50*1000 : MC= 10100 
1730 Y (3) -12500 

1740 MS=25: EF=77: FA=160: SF=0: MT=0 
1750 FOR J = l TO 5 
1760 READ M(J) 
1770 NEXT J 

1780 POKE 53280,0: POKE 53281 , 0: RETURN 
1790 DATA 8900,3250,2500,1625,16275 
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5 POKE 53280,. 0: POKE 53281 ,0 
10 REM GRIDIRON 
20 PRINT " 
<CLR>" 

30 X=RND < VAL (RIGHTS (TIS, 2) ) ) : REM 

RANDOMIZE 
40 GOSUB 70 
50 GOTO 220 

60 REM *********************** 

70 FOR X=l TO 1 500 1 NEXT X 
80 RETURN 

90 REM *********************** 
100 PRINT A*; SA 
110 PRINT BS;SB 
120 RETURN 

130 REM *********************** 
140 IF ZS=AS THEN ZS=B'S: RETURN 
150 ZS= AS: RETURN 

160 REM *********************** 
170 GET ZZS:IF ZZS< > " " THEN 170 
180 PRINT" > PRESS ANY KEY < " 

190 GET ZZS: IF ZZS=" " THEN 190 
200 PRINT TAB < 20 ) ; " OK " : RETURN 
210 REM *********************** 
220 REM INITIALISE 
230 DEF FNA < X > = I NT < RND ( 1 ) *X ) + 1 
240 PRINT" 

<WHT>ONE PLAYER OR TWO" 

250 INPUT X 

260 IF X< 1 OR X>2 THEN 250 

270 IF X=l THEN VC = i : AS= "SILICON COWBOYS 
" : GOTO 300 

280 PR I NT "WHAT IS THE NAME OF THE HOME T 
EAM" 

290 INPUT AS: IF AS= " " THEN 290 

300 PR I NT "AND WHAT IS THE NAME OF THE VI 

SITING TEAM" 

310 INPUT BS: IF BS= " " THEN 310 

315 AS=" 

{WHT> " + AS: BS= " < PUR > " + BS 

320 ZS=AS:NU=35 
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33.0 PRINT " 
CCLR> " 

340 PRINT " THERE ARE" INT ( 10* (60- (W/4) ) ) / 1 
0" MINUTES TO GO" 

350 PRINT TAB (8) ; Z*" TO KICK OFF" 
360 PRINT " 

CWHTJYOU ARE ON YOUR OWN "NU" YARD LINE" 
370 IF VC=1 AND ZS=A35 THEN GOSUB 70: GOTO 

400 

380 PR I NT "TO KICK OFF. . . " 

390 GOSUB 170 

400 A=FNA (20) +40 

410 PRINT Z*J " HAVE..." 

420 FOR X=l TO A 

430 PRINT TAB (X/3) ? " K I CKED " X " YARDS " 
440 NEXT X 
450 NU=NU+X 
460 GOSUB 70 
470 PRINT " 

<PUR>THE BALL IS CAUGHT ! " 
480 GOSUB 70 
490 A=FNA (30) +10 
500 FOR X=l TO A 

510 PRINT TAB (X/5) j "AND RETURNED " X " YARDS 



560 PR I NT "THE BALL IS DOWN ON" 

570 PRINT Z$; " 7 S " NU " YARD LINE" 

580 IF Z*=A* AND VC=1 THEN GOSUB 70: GOTO 

600 

590 GOSUB 170 

600 tg=10:d=0:sl=nu 

610 IF W=60 OR W=180 THEN 2010 
620 IF W=120 THEN 2070 
630 IF W=240 THEN 2140 
640 PRINT" 

*CLR}" 

650 PRINTLEFTSMAS, 6) ; SA ; LEFT* ( B$ , 6 ) 1 SB 



■S3 JS? 
530 
540 
550 



NEXT X 

NU=ABS ( 100-NU+X) 
GOSUB 140 
PRINT" 
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660 PRINT 
TO GO" 

670 GOSUB 70 

680 PRINT'*-- 
— — — 

690 PRINT 

700 PRINT 

710 PRINT 

720 PRINT" 



INT ( 10* (60- (W/4) ) > / 10 "MINUTES 



Z*" IN POSSESSION" 
TAB (4) ; D " DOWN " 
TAB (4) ; TG " YARDS TO GO" 



— _ _ _ H 

730 PRINT " START AT "SL" YARD LINE" 

740 PRINT " NOW ON "NU" YARD LINE" 

750 PRINT 100-NU "YARDS TO TOUCHDOWN" 

760 PRINT" 

_ — _ — ii 

770 PRINT "ON THIS PLAY " J 

780 IF Z$=A93 THEN PRINT A* J " CAN" : GOTO 8 

00 

790 PRINT B*S " CAN" 
800 PRINT" EITHER 1 - THROW" 
810 PRINT" 2 - CARRY" 

820 PRINT" OR 3 - PUNT" 

830 P-0 

840 IF AS=Z* AND VC=1 AND D<3 THEN P=2: G 
OTO 900 

850 IF A*=Z* AND V/C = l AND TG<7 THEN P=2: 
GOTO 900 

860 IF A$=Z$ AND VC=1 AND < 100-NU) <31 TH 
EN P=3: GOTO 900 
870 IF AS=Z* AND VC=1 



THEN P=l : GOTO 900 
880 GET K*: IF K$< " 1 " OR K* > " 3 " THEN 880 
890 P=VAL <K*s) : PRINT TAB ( 10) ; "OK"P 
900 GOSUB 70 

910 W=W+1 
920 PRINT" 
CCLR> " 

930 PRINT Z$ ; " , YOUR QUARTERBACK HAS " 

940 PRINTTAB (8) ; "GOT THE BALL" 

950 PRINT" 



_ _ _ _ ii 



960 PR I NT "WAIT FOR THE COUNT, " J ZS; " , " 
970 PRINT TAB (8) ; "THEN HIT ANY KEY. . . " 
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980 GET ZZ*: IF ZZ3K > " " THEN 980 

990 GOSUB 70 

100.0 GOSUB 22.0.0 

1010 IF E=l 1 THEN 234.0 

1.02.0 PRINT " 

1.03.0 ON P GOTO 1.05.0, 1310, 159.0 

1040 REM *********************** 

I. 050 PR I NT "YOU'VE THROWN " E*5 " YARDS " 
1060 PR I NT "AND THE PLAY IS..." 
107.0 A=FNA ( 8 ) 

1080 IF A=l THEN 1520 

109.0 A=FNA ( E+ 1 ) 

I I. 00 IF A=l THEN PR I NTT AB (2.0) » " . . . COMPLE 
TE" : GOTO 1220 

1110 PRINT TAB (20) ; " . . . INCOMPLETE" : D=D+1 

1120 GOSUB 170 

1 1 30 PRINT" 



1 140 IF D>3 THEN 1 160 

1 150 GOTO 610 

1 16.0 PRINT " THAT WAS YOUR 4TH DOWN " 

1 170 PRINT" AND YOU'VE LOST POSSESSION ! ! " 

1 180 D=0: TG=1.0: NU=ABS ( 1.00-NU) : SL = NU 

1 190 GOSUB 70 

1 2.00 GOSUB 140 

121.0 GOTO 610 

1220 GOSUB 17.0 

1230 NU=NU+ (E*5) : TG=TG- (E*5) 

1240 IF NU> 10.0 THEN 1 8.00 

1250 IF TG< 1 THEN 1280 

126.0 D=D+1 : IF D>3 THEN 1 16.0 

1270 GOTO 610 

1280 D=0: TG=1.0: SL=NU 

1290 GOTO 610 

1 3.00 REM *********************** 

1310 A=FNA ( 15) 

1320 IF A=l THEN 151.0 

1330 E=A-5 

1340 IF E<0 THEN 144.0 

1350 IF E=0 THEN E=l : GOTO 1370 

1360 PR I NT" GOOD SNAP , PASS AND RUN " 

1370 PR INT "YOU'VE GAINED " E " YARDS " 
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1380 GOSUB 170 

1390 TG=TG-E:NU=ABS <NU+E) :D=D+1 
1400 IF NU>100 THEN 1 800 
1410 IF TG< 1 THEN 1280 
1420 IF D>3 THEN 1 160 
1430 GOTO 610 

1440 PR I NT "GREAT RUNNING BY THE OPPOSITI 
ON HAS" 

1450 PR I NT "CAUSED YOU TO LOSE " ABS < E ) " YAR 
DS" 

1460 TG=TG-E: NU=NU+E: D=D+1 
1470 GOSUB 170 
1480 IF D>3 THEN 1 160 
1490 GOTO 610 

1500 REM *********************** 

1510 PR I NT "BAD SNAP. . . YOU ' VE " 

1 520 PR I NT " FUMBLED . . . AND " 

1530 PR I NT " YOU ' VE LOST POSSESSION. . . " 

1540 NU=100-NU: D=0S TG=10: SL=NU 
1550 REM ********************* 
1560 GOSUB 170 
1570 GOTO 460 

1580 REM *********************** 

1590 PRINT"NICE PUNT . . . " 

1600 PR I NT "YOU' VE K I C KED " E*4 " YARDS " 

1610 NU=NU+E*4 

1620 IF NU>100 THEN 1650 

1630 PRINT" 



1640 GOTO 460 

1650 A=FNA (3) 

1660 IF A>1 THEN 1740 

1670 PR I NT "BUT YOU'VE MISSED THE GOAL ! ! " 

1680 IF NU-E*4<80 THEN NU=ABS ( 100- (NU-E* 
4) ) : GOTO 1700 

1690 NU=20 

1 700 D=0: TG=10: SL=NU 

1710 GOSUB 140 

1720 GOSUB 170 

1730 GOTO 610 

1740 PRINT " AND SCORED ! " 

1750 IF ZS=B* THEN SB=SB+3: GOTO 1770 

1760 SA=SA+3 
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177.0 GOSUB 100 

1780 GOSUB 170 

1790 NU=35:GOTO 330 

1800 PRINT" 
{ CLR > " : GOSUB 4000 

1810 FOR X=l TO 5 

1820 PRINTTAB <X*2> ? "TOUCHDOWN ! ! ! " 

1830 NEXT X 

1840 IF Z*=A* THEN SA=SA+6: GOTO 1860 

1850 SB=SB+6 

1860 GOSUB 100 

1870 PR I NT "TO PLAY FOR EXTRA POINT " 

1880 GOSUB 170 

1890 PRINT" 



1 900 PRINT "THE BALL IS SNAPPED. . . PREPAR 

E TO KICK ! " 

1910 GOSUB 70 

1920 GOSUB 2200 

1930 IF E>9 THEN PR I NT "YOU MISSED" : NU=20 
: GOTO 1970 

1940 PRINT" YOU SCORED. . . " : NU=35 

1950 IF 2*=A* THEN SA=SA+1 GOTO 1980 

1960 SB=SB+1 : GOTO 1980 

1970 GOSUB 140 

1980 GOSUB 100 

1990 GOSUB 170 

2000 GOTO 330 

2010 FOR X=l TO 10 

2020 PRINT TAB <2*X> ; "PERIOD OVER" 

2030 NEXT X 

2040 GOSUB 100 

2050 GOSUB 170 

2060 GOTO660 

2070 FOR X=l TO 10 

2080 PRINT TAB <2*X) J "HALF TIME" 

2090 NEXT X 

2100 GOSUB 100 

2110 ZS5=B$ 

2120 GOSUB 170 

2130 NU=35 : W=W+2 : GOTO 330 

2140 FOR X=l TO 10 

2150 PRINT TAB <2*X) ; "GAME OVER" 
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216.0 NEXT X 
2170 GOSUB 100 
2180 END 

2190 REM *********************** 

2200 E=0!X=10 

2210 IF Z*=A* AND VC=1 THEN PRINT "THIS O 
NE FOR " ; A*: GOTO2290 
2220 E=E+1;X=X-1 
2230 PR I NT TAB ( E ) ?E 
2240 FOR Y=l TO X*l . 5 

2250 GET ZZ$: IF ZZ*< > " " THEN Y=X*1 . 5+1 : R 
ETURN 

2260 NEXT Y 

2270 IF E=ll THEN RETURN 

2280 GOTO 2220 

2290 FOR E=l TO FNA < 7 ) +2 

2300 FOR J=l TO 60: NEXT J 

2310 PRINT TAB (E) ; E 

2320 NEXT E 

2330 RETURN 

2340 PR I NT "TOO LATE!" 

2350 PRINT " YOU 7 VE BEEN SACKED * " 

2360 E=FNA (4) 

2370 IF E=3 THEN 2430 

2380 PR I NT "AND LOST FIVE YARDS ! " 

2390 TG=TG+5: D=D+1 : NU=NU-5 

2400 GOSUB 170 

2410 IF D>3 THEN 1160 

2420 GOTO 610 

2430 PRINT" AND LOST POSSESSION!" 

2440 D=0: NU=ABS ( 100-NU+5) :SL=NU: TG=10 

2450 GOSUB 170 

2460 GOSUB 140 

2470 GOTO 610 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1 ,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5, 15 

4060 POKE SID+6, 255 

4070 POKE SID+4, 17 

4080 FOR LI =48 TO 220 STEP .7 
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4.090 POKE SID+1 , LI 

4100 NEXT LI 

4110 FOR Ll=28 TO 200 

4120 POKE SID+1 , LI 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 

4150 POKE SID+1 , LI 

4160 NEXT LI 

4170 POKE SID+1 ,0 

4180 RETURN 
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10 REM TENNIS 

20 POKE 53280,0: POKE 53281 , 0: PRINT " 
iCLRy " 

30 D=RND fVAL (RIGHTS (TI«, 2) ) ) : REM 
RANDOMIZE 

40 AA=0: BB=0: T=0: KA=0 

50 XA=0: YA=0: ZA=0 

60 XB=0: YB=0: ZB=0 

70 DEF FNA <X> = INT <RND < 1 >*X> +1 

80 INPUT "ONE HUMAN PLAYER OR TWO" ; A 

90 IF A< 1 OR A>2 THEN 80 

100 IF A=l THEN A*="BJORNX" : VC = 1 

110 IF VC=1 THEN 160 

120 PR I NT "PLEASE ENTER SIX-LETTER NAME " 
130 INPUT " NAME OF FIRST PLAYER" ; A* 
140 IF LEN (AS) <6 THEN A$=A*+CHRS ( 32 > : GOT 
O 140 

1 50 AS=LEFT3M A*, 6) 

160 INPUT "NAME OF SECOND PLAYER" ; B* 
170 IF LEN(BS)<6 THEN B*=B*+CHR* ( 32 ) : GOT 
O 170 

180 BS=LEFT$ (B*, 6) 
190 S=l : AA=1 : BB=1 
200 PRINT" 
CCLR>" 
205 AS=" 

{ PUP > " +A$: BS= " I WHT > " +B* 

210 P=&=A«: R$=B35 , 

220 REM 

230 IF P*=A* THEN RS=B$ 
240 IF P*=B* THEN R*=AS 
250 PRINTPS? " SERVING" 

260 PR I NT "DO YOU WANT TO SERVE 1 - FAST" 
270 PRINT" OR 2 - SLOW " 

280 IF PS3=AS AND VC=1 AND SC=0 THEN KB=1 
: GOSUB 1720: GOTO 330 

290 IF PS=AS AND VC=1 AND SC=1 THEN KB=2 
: GOSUB 1720: GOTO 330 
300 GET KSs 

310 IF K*< " 1 " OR K*>"2" THEN 300 
320 KB=VAL ( K$) 
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330 PRINT : PR I NTT AB < 6) » KB? TAB (10) ? " > IT'S 
A " ? 

340 IF KB=1 THEN PRINT " FAST " i 
350 IF KB=2 THEN PRINT" SLOW" ? 
360 PRINT" SERVE..." 
370 GOSUB 1720 

380 IF KB=1 THEN EB=FNA (3) : GOTO 400 

390 EB=FNA(8) 

400 IF EB=1 THEN 450 

410 IF EE=3 AND SC=0 THEN 520 

420 IF EB=3 AND SC=1 THEN 590 

430 GOTO 670 

440 REM ******************************* 
450 PRINT" 

{ CLR > " : PRINT : GOSUB 4000 

460 PRINT TAB (8) ;".... ACE. ... " 

470 GOSUB 1720 

480 SC=0 

490 IF PS=A* THEN 1 140 
500 GOTO 1150 
510 REM 
520 PRINT" 
<CLR V : PRINT 

530 PRINT TAB ( 12) OUT. . . . " 

540 PRINT TAB (8) ; " . . . SECOND SERVE..." 

550 GOSUB 1720 

560 SC=1 

570 GOTO 230 

580 REM 

590 PRINT" 

{CLR}" : PRINT 

600 PRINT TAB (12) I " OUT " 

610 PRINT TAB (8) ; " . . . DOUBLE FAULT. . . " 

620 GOSUB 1720 
630 SC=0 

640 IF P*=AS THEN 1150 

650 GOTO 1140 

660 REM 

670 SC=0 

680 PRINT" 

<CLR> " : PRINT 

690 GET 22*: IF 22*<>"" THEN 690 
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700 PRINTRSJ " , THE BALL IS" : PRINT " IN YOU 
R COURT" 

71.0 PRINT " 

720 IF RSB=AS AND V'C=1 THEN 750 

730 PRINT»HIT ANY KEY, WHEN YOU SEE THE 

ZER0 > TO RETURN THE BALL..." 

740 GET ZZ«: IF ZZ$<>"» THEN 740 

750 X=4*FNA <3) : Y=X 

760 GOSUB 1720 

770 E=5 

7S0 PRINTTAB<2*<li-E> ) |E 
790 Y=Y-1 
800 GET SS5 

310 IF S$<>"" AND E=0 THEN 890 

820 IF S35<>"» THEN 990 

830 IF Y>0 THEN 790 

840 E=E-lSY=X 

850 IF E<-1 THEN 990 

860 IF E=-l AND R$=A$ AND VC = 1 THEN 890 
870 GOTO 780 

880 IF KB=1 THEN EA=FNA ( 2 ) : GOTO 1000 
890 EA=FNA < 4 ) 

900 IF E=0 AND R*=AS AND VC=1 THEN EA=FN 
A ( 8 ) 

910 IF EA=1 THEN 940 

920 IF R<S=AS THEN R*=B*: GOTO 670 

930 R33=AS3 : GOTO 670 

940 PRINTRS; " , YOU'VE HIT THE BALL" 
950 PRINT TAB (8) ; "OUT OF PLAY..." 
960 GOSUB 1720 

970 IF RS=AS THEN R$=B*SGOTO 1150 

980 GOTO 1 140 

990 EA=FNA (4) 

1000 IF EA=1 THEN 1070 

1010 PR I NT "YOU MISSED THE BALL, AND..." 
1020 GOSUB 1720 

1030 PRINT" IT WAS IN. . .BAD MISTAKE" 
1040 GOSUB 1720 

1050 IF R35=A* THEN R*=BS: GOTO 1140 
1060 GOTO 1140 

1070 PR I NT "YOU MISSED THE BALL AND. . . " 

1080 GOSUB 1720 
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1090 PRINT" IT WAS OUT... WELL LEFT" 
1100 GOSUB 1720 

1110 IF RS5=AS3 THEN RS=B*:GOTO 1140 
1120 GOTO 1150 
1 130 REM 

1140 AA=AA+1 : GOTO 1 160 
1 150 BB=BB+ 1 

1160 IF AA<5 AMD BB<5 THEN 1230 

1 170 IF (BB>4 AND AA<4) OR (BB>4 AND BB- 

AA>1 ) THEN AA=1 : BB=1 : GOTO 1 500 

1130 IF (AA>4 AND BB<4> OR < AA>4 AMD AA~ 

BB>1) THEN AA=1 : BB=1 : GOTO 1440 

1190 IF AA>4 AND AA >BB THEN CS= "ADV" : D$= 

" " : GOTO 1320 

1200 IF BB>4 AND BB > AA THEN D$="ADV" : C$= 
" " : GOTO 1320 

1210 C*= " ( DEUCE " : D$= " ( DEUCE " : GOTO 1320 

1220 REM 

1230 RESTORE 

1240 FOR D=l TO AA 

1250 READ C* 

1260 NEXT D 

1270 RESTORE 

1280 FOR D=l TO BB 

1290 READ D* 

1300 NEXT D 

1310 REM 

1320 PRINT" 

{CLR> " 

1330 PRINT" " 

1340 PRINT " SET SET SET " 

1350 PRINT" " 

1360 PRINT" 12 3 GAME" 

1370 print A*; " " ; xa; " " ; ya; " " ; za; " " 
; c$ 

1380 PRINT B35J " " ; XBJ " " ? YB ; " " ; ZBJ ** " 

; D* 

1390 PRINT" " 

1400 GOSUB 1720 

1410 IF TOl THEN 230 

1420 END 

1430 REM ****************************** 
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1440 PRINT" 
i CLR> " 

145.0 PRINT " GAME TO " % AS 
1460 GOSUB 1720 

1470 IF S=l THEN XA=XA+1 : CS="0" : DS="0" : G 

OTO 1560 

1480 IF S=2 THEN YA=YA+ 1 : CS="0" : DS="0" : G 

OTO 1580 

1490 IF. S=3 THEN ZA=ZA+1 : CS= " " : D*= " " : G 

OTO 1 600 

1 500 PRINT" 

CCLR> " 

1510 PRINT" GAME TO "IBS 
1520 GOSUB 1720 

1530 IF 3=1 THEN XB=XB+1 : CS="0" : DS="0" : G 

OTO 1560 

1540 IF S=2 THEN YB=YB+ 1 : CS="0" : DS="0" : G 
OTO 1580 

1550 IF S=3 THEN 2B=2B+1 : CS="0" : DS="0» : G 
OTO 1 600 

1560 IF <XA>5 AND XB<5) OR (XA<5 AND XB> 
5) THEN 1630 

1570 IF (XA>5 AND XA-XB>1 ) OR <XA>5 AND 
XB-XA>1> THEN 1630 

1580 IF (YA>5 AND YB<5) OR (YA<5 AND YB> 
5) THEN 1630 

1590 IF (YA>5 AND YA- YB > 1 ) OR <YA>5 AND 
YB-YA > 1 ) THEN 1630 

1600 IF (ZA>5 AND ZB<5) OR (ZA<5 AND ZB> 
5) THEN 1680 

1610 IF <ZA>5 AND ZA-ZB>1 > OR (ZA>5 AND 
ZB~ZA>1) THEN 1680 
1620 GOTO 1640 
1630 S=8+l 
1640 AA=i : BB=1 

1650 IF PS=AS THEN RS=AS : PS=BS : GOTO 1320 
1660 PS=AS: RS=BS: GOTO 1320 

1670 REM **###*****#**####***##**##**.3f.8. 

1680 T=l 

1690 GOTO 1320 

1700 REM ****************************** 
1710 REM DELAY 
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172.0 FOR M=l TO 10.00: NEXT M 

1730 RETURN 

1740 DATA "0" , " 15" , "30" , "4.0 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID + L1 ,0 

4030 NEXT LI 

4040 POKE SID+24, 15 

4050 POKE SID+5, 15 

4060 POKE SID+6, 255 

4070 POKE SID+4, 17 

4080 FOR LI =48 TO 220 STEP 

409.0 POKE SID+1, LI 

4100 NEXT LI 

4110 FOR Ll=28 TO 200 

4120 POKE SID+1 , LI 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP 

4150 POKE SID+1 , LI 

4160 NEXT LI 

4170 POKE SID+1 ,0 

4180 RETURN 
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10 REM GRAND PRIX 
20 GOSUB 2200: REM INITIALISE 
30 GOSUB 1 190: REM CHOOSE TRACK 
40 REM 

50 REM MAJOR LOOP 

60 GOSUB 120: REM PRINTOUT 

70 GOSUB 280: REM ACCELERAT I ON / CHECK 

80 GOSUB 450: REM ENGINE/BRAKES 

90 GOSUB 500: REM CORNER / POS I T I ON 

100 GOTO 60 

110 REM 

120 REM PRINTOUT 
130 PRINT" 
{CLR> {PUR} " 

140 PR I NT "ENGINE TEMPERATURE" INT <ENG*10) 
/ 10" C . (MAX. 200) " 

150 PR I NT "BRAKE TEMPERATURE: "INT<BRAK*10 
) / 10"C . (MAX. 500) " 

160 PRINT" DISTANCE COVERED: " INT ( D I ST*- 10 
) / 10 "METERS" 

170 PRINT" : " INT (DIST-K-10 

0/RR) / 100 "LAPS" 

180 PRINT" YOU' RE IN POSITION" INT (FP) 

190 PRINT" 

______ H 

200 PRINT" CURRENT SPEED: " I NT < SPEEDS- 1 

0) / 10"KPH" 

210 PRINT" : "INT<SPEED*5 

. 555) / 10"METERS PER MOVE" 

220 PRINT" 

______ ii 

230 PRINT "CORNER APPROACHING " INT < APP ) "ME 

TERS " 

240 PRINT "RECOMMENDED SPEED : "C (C) " KPH " 

250 PRINT" 

______ H 

260 RETURN 
270 REM 

280 REM CHECK ACCELERATION AND FACTORS 
290 GET Xifc: IF XS<>"2" AND X$< > "M" AND X* 
< >CHR* (32) THEN 290 
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300 PR I NTT AB < 12) ? "OK" 
310 X=0 

320 IF X$= " M " THEN X=SPEED/ 15 
330 IF X*= "Z" THEN X= -SPEED/ 15 
340 NUM=NUM+1 : REM NUMBER OF MOVES 
350 SPEED=SPEED+X 
360 IF SPEED<0 THEN SPEED=0 
370 TRAV=SPEED*. 5555: REM DISTANCE 

TRAVELLED 

380 DIST=DIST+TRAV: REM TOTAL DISTANCE 

TRAVELLED 

390 ENG=ENG+ (X/2) +.07: IF ENG<70 THEN EMG 

=70 + RND < 1 ) *8 : REM ENGINE TEMP 

400 IF X>0 THEN BRAK=BRAK*. 9: REM BRAKE 

TEMP FALLING; ACCELERATING 
410 IF X< 1 THEN BRAK=BRAK- ( 3*X ) -RND ( 1 ) *3 
: REM BRAKE TEMP INCREASING; BRAKING 
420 IF BRAK< 8 THEM BRAK=8+RND ( I ) #8 
43.0 PRINT" 
{WHT> " ; : RETURN 
440 REM 

450 REM CHECK ENGINE /BRAKE TEMP 

460 IF ENG>200 THEN PRINT" YOUR ENGINE HA 

S OVER HEATED" ". GOTO 830 

47.0 IF BR AK> 5.0.0 THEN PRINT" YOUR BRAKES H 
AVE OVERHEATED" : GOTO 83.0 
480 RETURN 
49.0 REM 

500 REM CHECK CORNERING SPEED 

AND FIELD POSITION 
51.0 APP=APP-TRAV 
520 IF APPX0 THEN RETURN 
530 CRASH=0 

540 IF SPEED> (C <C)*i . 125) THEN CRASH=1 : G 
OTO 690 

550 IF SPEED > <C <C ) *1 . 1 ) THEN GOTO 690 
560 PNT=PNT+1.00- < (C (C ) *1 . 1 ) -SPEED) : REM 
CORNERING POINTS 

570 NC=NC+1 : REM NUMBER OF CORNERS 
580 CP=96- (PNT/NC) : REM CORNERING 

POSITION 

590 AM=AM+ A ( C ) : REM AVERAGE NUMBER 

OF MOVES ALLOWED 



308 



Commodore 64 

600 rp=num-am:rem racing position: your 

moves minus average moves 
610 fp= (cp+rp) /2srem field position is 
average of corner & race positions 

620 IF FP< 1 THEN FP=i 

630 C=C + 1 

640 IF C=WW THEN C=l : REM LAP OVER 

650 APP=APP+D (C ) 

660 IF LAP*QQ=AM THEN 910: REM RACE OVER 

670 RETURN 

680 REM 

690 REM CRASHED 

700 PRINT" 

C C L r y " 

710 PR I NT "YOU CORNERED AT" INT < 10-X-SPEED) / 
10"KPH" 

720 PR I NT "AND THE MAXIMUM SPEED WAS JUST 

" C ( C ) 

730 GOSUB 2330 

740 PRINT" YOU SPIN OFF THE TRACK..." 

750 GOSUB 2330 

760 IF CRASH=i THEN 830 

770 PR I NT "YOU'VE LOST 20 SECONDS, BUT YO 

U' RE ABLE TO REJOIN THE RACE" 

780 NUM=NUM+10: SPEED=INT (2*C (C) /3) 

790 PNT=PNT+50 

800 GOSUB 2330 

810 GOTO 570 

820 REM •^•■^•-^■^•^••^•■^■•^■•^•■^•^■■^■•^■■^••^•■^■■^■•^-^■■Jf-^"^-^ 

830 PRINT" AND CRASH!!!!!" 

840 PRINT" 

______»• 

850 PRINT" YOU ONLY COMPLETED" INT < D I ST* 10 
) / 10 " METERS . " 

860 PRINT " OR " INT < DIST#100/RR ) / 100" LAPS A 
MD AT THAT" 

870 PR I NT "STAGE YOU WERE IN POSITION" INT 

<FP> 

880 PRINT" 



890 GOTO 1050 
910 REM RACE OVER 
920 PRINT" 
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{CLR> " 

930 EFLAG=1 

940 FOR X=l TO 20 

950 PRINTTAB (X) ; "WELL DONE, " ; AS J " ! ! " 

960 PRINTTAB (21 -X) ; "WELL DONE, " ; A* ; " ! ! " 

970 NEXT X 

980 PRINT " 



990 PRINT " YOU MANAGED TO LAST OUT THE FU 

LL "LAP "LAP RACE. . . » 

1000 PRINT" 



1010 GOSUB 2330 

1020 PRINT" YOU FINISHED IN POS I T I ON " I NT < 
FP) 

1030 PRINT "AFTER STARTING IN 6TH POSITIO 
N . . . " 

1040 GOSUB 2330 

1050 PRINT" YOUR AVERAGE SPEED WAS" INT (DI 

ST*180/NUM) / 100"KPH" 

1060 GOSUB 2330 

1070 IF RP< 1 THEN RP=1 

1080 IF CP< 1 THEN CP=1 

1090 PR I NT "YOU WERE " I NT ( ABS ( RP ) ) " TH FAST 
EST ON THE STRAIGHTS, " 

1 100 PR I NT "AND" INT (ABS (CP) ) "TH FASTEST O 
N THE CORNERS . " 

1 1 10 PR I NT : PR I NT " PRESS 7 S' FOR SAME RACE 

, ' N ' FOR NEW RACE, 'E' TO END" 

1 120 GET im: IF I*< > "S" AND IS< > " N " AND I 

*<>"E" THEN 1 120 

1130 IF 135= "E" THEN END 

1140 GOSUB 2240 

1150 RESTORE 

1 160 IF IS3="S" THEN GOSUB 1 490 : LAP=L2AP : 
GOTO 60 

1 170 IF I*="N" THEN PRINT " 
<CLR> " *. GOSUB 1250: GOTO 60 
1 180 REM 

1 190 REM NAME AND TRACK DATA 

1200 INPUT "WHAT IS YOUR NAME, DRIVER" 5 A 

$ 

1210 PRINT 
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1220 FOR X=l TO 3 

1230 PRINT TAB <X*4> J "OK, GOOD LUCK, " ? A* 
1240 GOSUB 2330: NEXT X 
1 250 PRINT " 

****** *** " 

1260 PRINT " WHICH RACE DO YOU WANT TO TAK 
E PART IN: " 



1280 
50MT 
1290 
00MT 
1 300 
00MT 
1310 
00MT 
1320 
1330 
4) " 
1340 
1350 
1360 
1370 



PRINT 
PRINT 

: i 
PRINT 

° 2 " 
PRINT 

: 3" 
PRINT 

: 4 " 

PRINT 
PRINT 



TAB ( 7 ) J "BRITISH GRAND PRIX 26 



TAB (7) ; "GERMAN GRAND PRIX 17 



TAB (7) J " ITALIAN GRAND PRIX 22 



TAB (7) ; " MONACO GRAND PRIX 31 



TAB (7) J "ENTER A NUMBER ( 1 TO 



GET K* 

IF K*< " 1 " OR K* > " 4 " THEN 1340 
GP=VAL <K*> 

PRINT" ***************************** 
********* " 

1380 PRINT TAB (8) ; " OK , THE " ; 

IF GP=1 THEN PR I NT " BR I T I SH " j 
PR I NT "GERMAN" % 
PRINT" ITALIAN" \ 
PRINT "MONACO" 5 



1390 
1 400 
1410 
1420 
1430 
1440 



IF GP=2 THEN 
IF GP=3 THEN 
IF GP=4 THEN 
PRINT" RACE" 

PRINT" ** *********************** * *** 



********* " 



1450 PRINT: PR I NT "OVER HOW MANY LAPS? 

1460 INPUT LAP : IF LAP< 1 THEM 1460 

1470 LAP= I NT (LAP+ .5) : L2AP=LAP 

1480 REM ^*#^***^*^^^*-Jf-^-){-****-«- 

1490 REM BRITISH DATA 

1500 SPEED=140 

1510 FOR X=l TO 9 

1520 READ D (X) : REM DISTANCE BETWEEN 

CORNERS 

1530 NEXT X 



311 



Commodore 64 

1 54.0 DATA 800 , 400 , 250 , 200 , 250 , 300 , 100, 10 
.0, 250 

1550 FOR X=l TO 9 

1560 READ C <X> 

1570 NEXT X 

1580 DATA 1 50 , 90 , 1 75 , 200 , 200 , 90 , 90 , 1 50 , 1 

50 

1590 FOR X=i TO 9 

1600 READ A <X> : REM AVERAGE NUMBER OF 
MOVES ALLOWED BETWEEN CORNERS 

1610 NEXT X 

1620 DATA 8,4,2,2,2,2, 1, 1,2 

1630 APP=800: WW=10". Q0=24: RR=2650 

1640 IF GP=1 THEN RETURN 

1650 REM ************************ 

166.0 REM GERMAN DATA 

1670 SPEED=85 

1680 FOR X=l TO 7 

1690 READ D(X) 

17.0.0 NEXT X 

171.0 DATA 60.0 , 2.00 , 1 00 , 1 5.0 , 250 , 200 , 2.00 

1720 FOR X=i TO 7 

173.0 READ C (X) : REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1740 NEXT X 

1750 DATA 90 , 1 75 , 1 20 , 9.0 , 200 , 20.0 , 1 75 

1760 FOR X=l TO 7 

1770 READ A (X) 

1780 NEXT X 

179.0 DATA 6,2,1,2,2,2,2 

1 800 APF=60"0 : WW=8 0Q= 1 7 : RR= 1 700 

181.0 IF GP=2 THEN RETURN 

1820 REM ************************ 

1830 REM ITALIAN DATA 

1840 SPEED=i08 

1850 FOR X=l TO 7 

1860 READ D(X) 

187.0 NEXT X 

1 88.0 DATA 80.0 , 300 , 1.00, 1 5.0 , 3.00 , 350 , 20.0 

1890 FOR X=l TO 7 

19.00 READ C (X) : REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1910 NEXT X 
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i 920 DATA 1 20 , 90 , 90 , 1 50 , 200 , 120, 1 50 

1930 FOR X=l TO 7 
1940 READ A ( X ) 
1950 NEXT X 

I960 DATA 8,3,3,1,3,3,2 

1 970 APP=800 I WW=8 : QQ=22 : RR=2200 

1980 IF GP=3 THEN RETURN 

1990 REM ************************* 

2000 REM MONACO DATA 

2010 SPEED=162. 5 

2020 FOR X=l TO 14 

2030 READ D(X) 

2040 NEXT X 

2050 DATA 400 , 1 00 , 1 00 , 300 , 400 , 300 ,150, 20 

0, 200, 200 

2060 DATA 150, 150, 200 , 250 
2070 FOR X=l TO 14 

2080 READ C ( X ) : REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

2090 NEXT X 

2100 DATA 1 75 , 1 50 , 1 75 , 200 , 1 20 , 200 ,175, 90 
, 175, 150 

2110 DATA 150, 175, 120, 150 
2120 FOR X=l TO 14 
2130 READ A (X) 
2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 
2160 DATA 1,2,2,2 

2170 APP =400". WW=15: QQ=30: RR=3100 
2180 RETURN 

2190 REM ************************ 
2200 REM INITIALISATION 

2210 POKE 53280,0: POKE 5328 1 , : PR I NT " 
{CLR> " 

2220 X=RND ( VAL < RIGHTS (TIS, 2) ) ) I REM 
RANDOMIZE 

2230 DIM A ( 14) , C ( 14) , D ( 14) 

2240 c=i : fp=6: pnt=0: nc=0: cp=0 

2250 AM=0 : RP=0 : APP=0 

2260 NUM=0: REM NUMBER OF MOVES 

2270 ENG=100: BRAK=10: TRAV=0 : D I ST=0 

2280 EFLAG=0 

2290 X=0 
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2300 RETURN 

2310 REM ************************ 
2320 REM DELAY 

2330 FOR 0=1 TO 1000 1 NEXT O 

2340 RETURN 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1 ,0 

4030 NEXT LI 

4040 POKE SID+24, 15 

4050 POKE SID+5, 15 

4060 POKE SID+6, 255 

4070 POKE SID+4, 17 

4080 FOR L1=4S TO 220 STEP . 7 

4090 POKE SID+1 , LI 

4100 NEXT LI 

4110 FOR Ll=28 TO 200 

4120 POKE SID+1 , LI 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 

4150 POKE SID+1 , LI 

4160 NEXT LI 

4170 POKE SID+1 ,0 

4180 RETURN 
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10 REM FLIGHT SIMULATION 
20 RPT=0 

30 LD= I NT ( RNB ( .1 ) *36.0> 

40 DIM ( 1.000) : REM THIS HOLDS FLIGHT 

RECORD 

50 DIM A$ (7) , C* (7) : REM THESE ARRAYS 

HOLD HORIZON AND COMPASS OUTPUT 
60 REM 

70 GOSUB 2320: REM INITALISE 

80 IF CRASH=0 THEN GOSUB 820 1 REM HORIZON 

/COMPASS 

90 GOSUB 500: REM PRINTOUT 
10.0 IF CRASH=1 THEN END 

110 IF LND= 1 AND UFLAG=1 THENGOSUB400.0: P 
R I NT " WELL DONE. A PERFECT LANDING ! " : END 
120 IF LND= 1 AND UFLAG=0 THEN PR I NT" YOUR 

WHEELS ARE UP": GOSUB 1780: GOTO 90 
130 T=AIRSPEED: SALL=0 
140 GET XS 

150 IF XS= " R " THEN RPT=1 : GOTO 70 

160 IF RPT=1 AND E* ( CLOCK + 1 ) = " " THEN RPT 

=0:GOTO 140 

17.0 IF RPT=1 THEN X*=E* ( CLOCK + 1 ) 
180 IF X*= " " THEN 140 

190 IF CL0CK<999 THEN E* ( CLOCK+ 1 ) =X* 

200 IF TAKEOV=l THEN ELEVATE= I NT ( ELEVATE 

+RND(1)*2-RND<1)*3> 

21.0 IF AIRSPEED<3 THEN 290 

220 IF X*=»Q» THEN ELEVATE=ELEVATE+5 : EFL 

AG=5:iF ELEVATE >60 THEN SALL=1 

230 IF X*="A" THEN ELEVATE=EL.EVATE-5 : EFL 

AG=-5: IF ELEVATE < -70 THEN SALL=-1 

240 IF SALLO0 THEN GOSUB 1640 

250 IF ALTIMETER< 1 THEN 290: REM PREVENTS 

DRAMATIC TURNS ON THE GROUND 
260 IF XS= " Z " THEN WA=WA - . 5 : ANG=ANG-6 : IF 

WA<-3 THEN WA=-3 
270 IF X*= " M " THEN WA=WA+ . 5: ANG=ANG + 6: IF 

WA>3 THEN WA=3 
280 ANG=INT < ANG + RND < 1 >*2-RND < 1 > *2 > 
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290 IF XS=CHR*(32) THEN A I RSPEED=A I RSPEE 
D + 8 . 5 

300 IF X$="." THEN AIRSPEED=AIRSPEED-7 
310 A I RSPEED=A I RSPEED -ELEVATE / 5 
320 IF UFLAG= 1 THEN AIRSPEED-AIRSPEED- 1 . 
5 : FUEL=FUEL- . 5 

330 IF A I RSPEED <0 THEM AIRSPEED=0 
340 IF AIRSPEED >400 THEN AIRSPEED=400 
350 IF X*="l" AND UFLAG=0 THEN UFLAG=l:G 
OTO 370 

360 IF XS=" 1" AND UFL AG= 1 THEN UFLAG=0 
370 FUEL=FUEL- < ABS ( T- AIRSPEED ) / 10) -3. 75 
380 IF FUEL<1 THEN GOSUB 178.0 
390 IF TAKEOV=l THEN 420 

400 IF ELEVATE > 10 AND A I RSPEED > 45 AND A I 
RSPEED<60 AND UFL AG= 1 THEN TAKEOV=l 
410 IF TAKEOV=0 THEM ALT I METER=0 : GOTO 45 


420 IF LND=0 AND A I RSPEED < 30 THEN EL E VAT 
E=ELEVATE-5: ALTIMETER=9*ALTIMETER/ 10 
430 ALT IMETER=ALTIMETER+INT ( < { ELEVATE + . .1 
) #A I RSPEED) +EFLAG*A I RSPEED/ 1000) /80 
440 IF ALT 1METER< 300 AND TAKEOV=l THEN A 
LT I METER=ALT I METER+ A I RSPEED / 30+ ELEVATE 
450 IF ALT I METER < THEN GOSUB 1730: REM 
CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE IT 

EASIER (OR EVEN HARDER) TO LAND 
470 IF ALT I METER > 1 5 AND A I RSPEED > 20 OR T 
AKEOV=0 THEN 80 

430 IF ABS ( ANG-LD) < 13 OR ABS ( ANG+360-LD ) 
< 13 THEN LND= 1 : GOTO 80 
485 GOTO 30 

490 REM ************************* 
500 REM PRINTOUT 
510 PRINT" 
{ CLR> " 

520 PRINT" HORIZON" ? TAB (20) 5 "HEADING" 
530 EV= I NT (ELEVATE/ 10) 
540 IF EV>2 THEN EV=2 
550 IF EV<-2 THEN EV=-2 

560 IF EV< >0 AND TAKEOV=l AND CRASH=0 TH 
EN GOSUB 1920 
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570 PRINT " : ; . .. 

580 FOR J=l JO 7 

59.0 print" : ; a* < J > ; » : » ; c* f J ) ; " : » 

600 A* ( J ) = " " 
610 NEXT J 

620 PRINT " : : .. 

630 DIST = DIST + ABS ( (COS (ELEVATE) > *AIRSPEE 

D ) / 360 

640 CLOCK=CLOCK+ 1 

650 PR I NT " : RANGE "INT ( DI ST* 1 ) / 1 » ; j I ME " 
INT (CLOCK) / 10; " : "LB 

660 PRINT " : . .» 

670 PRINT" : AIRSPEED : " INT (AIRSPEED ) 

6S0 PRINT" : " ; LEFTS ( Q$ , INT ( AIRSPEED/ 20) ) ; 
ii -J. H 

690 PRINT" : ALTIMETER: " I NT ( ALT I METER ) ; 
700 IF ANG< THEN PR I NTTAB ( 1 9 ) 5 360+ANG " D 
EG. " 

710 IF ANG>=0 THEN PR I NTTAB ( 19) ; ANG " DEG . 
■I 

720 MR= I NT (ALT I METER/ 30) : IF MR>20 THEN M 
R=20 

730 PR I NT " : " 5 LEFT* ( Q*> , MR ) ; " > " 

740 PRINT" : FUEL : " INT (FUEL) 

750 PRINT": " jLEFTSs'Q*, INT (FUEL/ 45) ) ? ">" 

760 PRINT " : : » 

770 PRINT" : ELEVATION: "ELEVATE" : " ; : GOSUB 

2210: PRINTU* 
730 IF UFLAG= 1 THEN PRINT " : " ; TAB ( 5 ) ; " > 
UNDERCARRIAGE DOWN < : » 

790 IF UFL AG=0 THEN PRINT " : " ; TAB (6) J " > 
UNDERCARRIAGE UP < : " 
800 RETURN 
810 REM 

820 REM ASSIGN HORIZON /COMPASS 
830 IF ABS ( INT (WA+. 5) ) =3 THEN GOSUB 980 
840 IF ABS(INT(WA+.5) ) =2 THEN GOSUB 1070 
850 IF ABS(INT(WA+.5) )=1 THEN GOSUB 1160 
860 IF INT(WA+.5)=0 THEN GOSUB 1250 
370 REM NEXT TWO LINES USED TO 

GRADUALLY STRAIGHTEN UP WINGS 
380 IF WA>0 THEN WA=WA-.2 
890 IF WA<0 THEN WA=WA+.2 
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900 IF WA > . 2 THEN 1350 

910 FOR 2=1 TO 7 

920 (8-2) =AS (2) 

930 NEXT 2 

940 FOR 2=1 TO 7 

950 MsM2)=AS5(2> 

960 NEXT 2 

970 GOTO 1350 

980 REM WA=3 OR -3 

990 A*(l)=" * " 

1 000 A* (2) = " ** 

1010 A* (3)=" ** 

1020 A$<4>=" ** 

1030 A* (5)=" 

1040 A* (6)=" -X"* 

1050 A* (7)="** 

1060 RETURN 

1070 REM WA=2 OR -2 

1080 A* ( 1 ) =" 

1090 A* (2)=" ** 

1100 A*< 3)=" *** 

1110 A* (4)=" *** 

1120 A* ( 5 ) = " *** 

1130 A$ ( 6 ) = " *** 

1140 ASM 7 > = " 

1 150 RETURN 

1 160 REM WA=1 OR -1 

1170 A*M1>=" 

1 1 80 A* < 2 ) = " 

1190 A* ( 3 > = " 

1 200 AS < 4 ) = " 

1210 A* (5) ="**** 

1220 A3M6>=" 

1230 A* (7)=" 

1240 RETURN 

1250 REM WA=0 

1260 A*(l)=" 

1270 A* (2)=" 

1280 A* (3)=" 

1 290 A* ( 4 ) = " ************** 
1 300 A* ( 5 ) = " 
1310 A* (6)=" 
1320 AS (7)=" 
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" : GOTO 
" : GOTO 
" : GOTO 



1330 RETURN 
1340 REM 

1350 REM ASSIGN COMPASS STRINGS 
1360 F2=ANG-F 1 
1365 F2=ANG 

1370 IF F2<0 THEN FA= I NT < < F2+375 > / 30 ) 
1380 IF F2>=0 THEN FA= I NT ( ( F2+ 1 5 ) / 30 ) 
1390 IF FA=12 THEN FA=0 
1400 C* ( 1 > = " . N. 

1410 IF FA=1 1 THEN C*<2>=" . @: . 
1450 

1420 IF FA=0 THEN C* f 2) =" . . @. . 

1450 

1430 IF FA=1 THEN C* (2) =" . . :&. 
1450 

1440 CSM2) = " . . : . . » 
1450 IF FA=10 THEN CS (3) 

1480 

1460 IF FA=2 THEN C* (3) = 
1480 

1470 C* (3) =" . . : 
1480 IF FA=9 THEN CS ( 4 ) = 
1510 

1490 IF FA=3 THEN C* (4) = 
1510 

1500 CS (4) =" W--X--E" 

1510 IF FA=8 THEN C* <5> = " . @ : 
1540 

1520 IF FA=4 THEN C*(5) =" . . : 
1540 

1530 C* ( 5) =" . . % 

1540 IF FA=7 THEN C* (6> = " „@: 
1580 

1550 IF FA=6 THEN C$(6)= 
1580 

1560 IF FA=5 THEN C$'6)=" . . : ©. " : GOTO 
1 580 

1570 i 6 ) = " . . : . . " 

1580 C3M7>=" . S. 

1590 IF ANG>360 THEN ANG=ANG-360 

1600 F2=ANG 

1610 IF W>0 THEN W=W-.4 

1620 IF W<0 THEN W=W+ . 4 



. . " : GOTO 
. . : @. : goto 

W@-X--E" : GOTO 
W-~X-@E" : GOTO 

. . " : GOTO 
@. " : GOTO 

. " : GOTO 
@. . " : GOTO 
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1630 RETURN 

1640 REM STALL/FALL 

1650 IF SALL=-i THEN 1710 

1660 FOR 3=1 TO 10 

1670 PR I NTT AIM J) ? "YOU HAVE STALLED!!" 
1680 NEXT J 

1690 A I RSPEED=A I RSPEED / 4 

1700 RETURN 

1710 FOR J=l TO 10 

1720 PRINTTAB < J ) J "UNCONTROLLED DIVE!!" 
1730 PRINTTAB (21 -J ) ; "PULL UP ! ! " 
1740 NEXT J 

1750 ALTIMETER=ALTI METER / 4 
1760 RETURN 

1770 REM ************************ 

1780 REM CRASH 

1790 CRASH=1 

1 800 ALT I METER=0 

1810 M*=" ** *C &** A ** S* H* ! ! *" : REM 

25 CHARACTERS LONG 
1820 FOR J=l TO 20 
1830 PRINTTAB ( J ) ? "CRASH ! " 
1840 PRINTTAB (21 -J ) ? "CRASH ! " 
1850 NEXT J 
1860 FOR 3 — 1 TO 7 
1870 G= I NT (RND < 1 > #11 ) + 1 
1880 A$( J>=MID*<M*,G, 14) 
1890 NEXT J 
1900 RETURN 

1910 REM ************************ 
1920 REM ADJUST HORIZON 

1930 G*=" " : REM 14 SPACES 

1940 ON EV + 3 GOSUB 1 960 , 2020 f 2070 , 2080 , 
140 

1950 RETURN 

1960 REM EV=-2 
1970 FOR J=l TO 4 
1980 A*< J)=A*< J +3) 
1990 NEXT J 

2000 AS ( 5 ) =G*: A* (6) =GSS A* ( 7 ) =G* 
2010 RETURN 
2020 REM EV/=-l 
2030 FOR J=l TO 6 
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2040 A* ( J ) =A* ( J + 1 } 

2050 NEXT J 

2060 A*(7)=G* 

2070 RETURN: REM EV=0 

2080 REM EV=1 

2090 FOR J=6 TO 1 STEP ~1 

2 1 00 A* ( J + 1 ) = A* ( J ) 

2110 NEXT J 

2120 A 35 «" I ) =QS 

2130 RETURN 

2140 REM EV=2 

2150 FOR J=4 TO 1 STEP -1 

2160 A$( J+3) =A*< J) 

2170 NEXT J 

2 1 80 ASM 1 ) =G* : A* ( 2 ) =G33 : ASM 3 > =G* 
2190 RETURN 
2200 REM 

2210 REM INPUT INTO COMMAND NAME 

2220 U*=" » 

2230 IF X*5=CHRSM32) THEN U*= " THROTTLE ON 
■I 

2240 IF X*= " . " THEN U*= " THROTTLE OFF" 
2250 IF XS=»0" AND ALT I METER >0 THEN U*= " 
CLIMB" 

2260 IF X*= " Q " AND ALT I METER=0 THEN U*5= " 
NOSE UP" 

2270 IF X*= " A " THEN US>="NOSE DOWN" 
2280 IF X$= " 2 " THEN U<£= " BANK LEFT" 
2290 IF X^="M" THEN " BANK RIGHT" 

2300 RETURN 
2310 REM 

2320 REM INITIALIZATION 

2330 POKE 53280,0: POKE 53281 , 0: PRINT" 
CCLR} CPUR> " 

2340 J=RND i VAL (RIGHT* (T IS, 2) ) ) : REM 
RANDOMIZE 

2350 Q*= " . »:REM 

21 CHARACTERS IN STRING 
2360 UFLAG= 1 : REM UNDERCARRIAGE - 

1 - DOWN, - UP 
2370 EFLAG= 1 : REM CLIMB RATE 
2380 AMG=0: TAKEOV=0: LND=0 
2390 AIRSPEED=0 
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2400 D I ST =0: REM DISTANCE COHERED 'RANGE* 

2410 ALT I METER=0 

2420 ELEVATE=0: REM ANGLE OF ELEVATION 

2430 WA=0: REM WING ANGLE | USED IN 

HORIZON PRINTOUT 

2440 FUEL=750: CRASH=0: F2=0: F1=0: REM 

FOR DIRECTION CHANGE / COMPASS ROUTINE 

2450 CLOCK=0 : REM TIME 

2460 X*=" " 

2470 RETURN 

4000 SID=54272 

40 10 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24, 15 

4050 POKE SID+5, 15 

4060 POKE SID+6, 255 

4070 POKE 510+4,17 

4080 FOR LI =48 TO 220 STEP .7 

4090 POKE SID+1 , LI 

4100 NEXT LI 

4110 FOR LI =28 TO 200 

4120 POKE SID+1, LI 

4 1 30 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 

4150 POKE SID+ 1 , LI 

4160 NEXT LI 

4170 POKE SID+1 , 

4180 RETURN 
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